/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Organization / GenChart

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 47 65 6e 43 68 61 | 72 74 00 00 00 00 00 00 |..GenCha|rt......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 01 40 00 00 | 00 21 fe 9d c5 18 00 a9 |.....@..|.!......|
|00000060| e8 1e 04 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 cc 15 00 00 |........|........|
|00000080| 00 00 4c 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..L.STAK|........|
|00000090| 00 00 00 0a 00 01 40 00 | 00 00 4c 00 00 00 00 00 |......@.|..L.....|
|000000a0| 00 00 00 03 00 00 00 03 | 00 00 52 42 00 00 00 1d |........|..RB....|
|000000b0| 00 00 0a 1f 00 00 17 0c | 00 00 00 02 00 00 1d 00 |........|........|
|000000c0| 00 00 8f 76 00 00 00 00 | 00 05 00 00 10 00 00 00 |...v....|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 02 10 80 00 | 02 10 80 00 02 10 80 01 |........|........|
|000000f0| dd 40 9d 4d 00 00 00 00 | 00 27 01 00 02 6b 03 40 |.@.M....|.'...k.@|
|00000100| 00 00 00 00 02 70 03 40 | 00 00 00 00 00 00 00 00 |.....p.@|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 01 1b 96 00 01 11 9a | 02 d0 02 40 00 00 00 00 |........|...@....|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 cc e0 00 00 04 e0 | 00 01 27 c0 00 00 18 20 |........|..'.... |
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 6f 6e 20 73 74 61 72 74 | 55 70 0d 67 65 74 48 6f |on start|Up.getHo|
|00000690| 6d 65 49 6e 66 6f 0d 70 | 61 73 73 20 73 74 61 72 |meInfo.p|ass star|
|000006a0| 74 55 70 20 2d 2d 20 74 | 6f 20 61 20 73 74 61 72 |tUp -- t|o a star|
|000006b0| 74 55 70 20 58 43 4d 44 | 2c 20 69 66 20 70 72 65 |tUp XCMD|, if pre|
|000006c0| 73 65 6e 74 0d 65 6e 64 | 20 73 74 61 72 74 55 70 |sent.end| startUp|
|000006d0| 0d 0d 6f 6e 20 72 65 73 | 75 6d 65 0d 67 65 74 48 |..on res|ume.getH|
|000006e0| 6f 6d 65 49 6e 66 6f 0d | 70 61 73 73 20 72 65 73 |omeInfo.|pass res|
|000006f0| 75 6d 65 20 2d 2d 20 74 | 6f 20 61 20 72 65 73 75 |ume -- t|o a resu|
|00000700| 6d 65 20 58 43 4d 44 2c | 20 69 66 20 70 72 65 73 |me XCMD,| if pres|
|00000710| 65 6e 74 0d 65 6e 64 20 | 72 65 73 75 6d 65 0d 0d |ent.end |resume..|
|00000720| 6f 6e 20 67 65 74 48 6f | 6d 65 49 6e 66 6f 0d 67 |on getHo|meInfo.g|
|00000730| 6c 6f 62 61 6c 20 73 74 | 61 63 6b 73 2c 61 70 70 |lobal st|acks,app|
|00000740| 6c 69 63 61 74 69 6f 6e | 73 2c 64 6f 63 75 6d 65 |lication|s,docume|
|00000750| 6e 74 73 2c 75 73 65 72 | 4e 61 6d 65 0d 73 65 74 |nts,user|Name.set|
|00000760| 20 6c 6f 63 6b 53 63 72 | 65 65 6e 20 74 6f 20 74 | lockScr|een to t|
|00000770| 72 75 65 0d 73 65 74 20 | 6c 6f 63 6b 4d 65 73 73 |rue.set |lockMess|
|00000780| 61 67 65 73 20 74 6f 20 | 74 72 75 65 0d 70 75 73 |ages to |true.pus|
|00000790| 68 20 74 68 69 73 20 63 | 61 72 64 0d 67 6f 20 74 |h this c|ard.go t|
|000007a0| 6f 20 63 61 72 64 20 22 | 55 73 65 72 20 50 72 65 |o card "|User Pre|
|000007b0| 66 65 72 65 6e 63 65 73 | 22 20 6f 66 20 73 74 61 |ferences|" of sta|
|000007c0| 63 6b 20 22 48 6f 6d 65 | 22 0d 70 75 74 20 63 61 |ck "Home|".put ca|
|000007d0| 72 64 20 66 69 65 6c 64 | 20 22 55 73 65 72 20 4e |rd field| "User N|
|000007e0| 61 6d 65 22 20 69 6e 74 | 6f 20 75 73 65 72 4e 61 |ame" int|o userNa|
|000007f0| 6d 65 0d 73 65 74 20 75 | 73 65 72 4c 65 76 65 6c |me.set u|serLevel|
|00000800| 20 74 6f 20 63 61 72 64 | 20 66 69 65 6c 64 20 22 | to card| field "|
|00000810| 55 73 65 72 20 4c 65 76 | 65 6c 22 0d 2d 2d 73 65 |User Lev|el".--se|
|00000820| 74 20 70 6f 77 65 72 4b | 65 79 73 20 74 6f 20 74 |t powerK|eys to t|
|00000830| 68 65 20 68 69 6c 69 74 | 65 20 6f 66 20 62 75 74 |he hilit|e of but|
|00000840| 74 6f 6e 20 22 50 6f 77 | 65 72 20 4b 65 79 73 22 |ton "Pow|er Keys"|
|00000850| 0d 73 65 74 20 62 6c 69 | 6e 64 54 79 70 69 6e 67 |.set bli|ndTyping|
|00000860| 20 74 6f 20 74 68 65 20 | 68 69 6c 69 74 65 20 6f | to the |hilite o|
|00000870| 66 20 62 75 74 74 6f 6e | 20 22 42 6c 69 6e 64 20 |f button| "Blind |
|00000880| 54 79 70 69 6e 67 22 0d | 70 75 74 20 66 69 65 6c |Typing".|put fiel|
|00000890| 64 20 22 70 61 74 68 73 | 22 20 6f 66 20 63 61 72 |d "paths|" of car|
|000008a0| 64 20 22 73 74 61 63 6b | 73 22 20 69 6e 74 6f 20 |d "stack|s" into |
|000008b0| 73 74 61 63 6b 73 0d 70 | 75 74 20 66 69 65 6c 64 |stacks.p|ut field|
|000008c0| 20 22 70 61 74 68 73 22 | 20 6f 66 20 63 61 72 64 | "paths"| of card|
|000008d0| 20 22 61 70 70 6c 69 63 | 61 74 69 6f 6e 73 22 20 | "applic|ations" |
|000008e0| 69 6e 74 6f 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |into app|lication|
|000008f0| 73 0d 70 75 74 20 66 69 | 65 6c 64 20 22 70 61 74 |s.put fi|eld "pat|
|00000900| 68 73 22 20 6f 66 20 63 | 61 72 64 20 22 64 6f 63 |hs" of c|ard "doc|
|00000910| 75 6d 65 6e 74 73 22 20 | 69 6e 74 6f 20 64 6f 63 |uments" |into doc|
|00000920| 75 6d 65 6e 74 73 0d 70 | 6f 70 20 63 61 72 64 0d |uments.p|op card.|
|00000930| 73 65 74 20 6c 6f 63 6b | 53 63 72 65 65 6e 20 74 |set lock|Screen t|
|00000940| 6f 20 66 61 6c 73 65 0d | 73 65 74 20 6c 6f 63 6b |o false.|set lock|
|00000950| 4d 65 73 73 61 67 65 73 | 20 74 6f 20 66 61 6c 73 |Messages| to fals|
|00000960| 65 0d 65 6e 64 20 67 65 | 74 48 6f 6d 65 49 6e 66 |e.end ge|tHomeInf|
|00000970| 6f 0d 0d 6f 6e 20 6f 70 | 65 6e 53 74 61 63 6b 0d |o..on op|enStack.|
|00000980| 67 6c 6f 62 61 6c 20 6d | 65 6e 75 31 2c 20 74 68 |global m|enu1, th|
|00000990| 65 4c 65 76 65 6c 2c 20 | 6d 49 74 65 6d 35 2c 20 |eLevel, |mItem5, |
|000009a0| c2 0d 64 69 73 74 2c 20 | 6c 65 66 74 2c 20 74 6f |..dist, |left, to|
|000009b0| 70 2c 20 72 69 67 68 74 | 2c 20 62 6f 74 74 6f 6d |p, right|, bottom|
|000009c0| 2c 20 6c 65 6e 67 74 68 | 0d 0d 70 75 74 20 74 68 |, length|..put th|
|000009d0| 65 20 75 73 65 72 6c 65 | 76 65 6c 20 69 6e 74 6f |e userle|vel into|
|000009e0| 20 74 68 65 4c 65 76 65 | 6c 0d 70 75 74 20 22 6e | theLeve|l.put "n|
|000009f0| 6f 6e 65 22 20 69 6e 74 | 6f 20 6d 65 6e 75 31 0d |one" int|o menu1.|
|00000a00| 70 75 74 20 22 52 65 6d | 65 6d 62 65 72 20 46 61 |put "Rem|ember Fa|
|00000a10| 6d 69 6c 79 22 20 69 6e | 74 6f 20 6d 49 74 65 6d |mily" in|to mItem|
|00000a20| 35 0d 70 75 74 20 32 35 | 20 69 6e 74 6f 20 64 69 |5.put 25| into di|
|00000a30| 73 74 0d 70 75 74 20 37 | 30 20 69 6e 74 6f 20 6c |st.put 7|0 into l|
|00000a40| 65 6e 67 74 68 20 20 20 | 20 20 20 20 20 20 20 20 |ength   |        |
|00000a50| 20 20 20 2d 2d 20 6c 65 | 6e 67 74 68 20 6f 66 20 |   -- le|ngth of |
|00000a60| 68 6f 72 69 7a 6f 6e 74 | 61 6c 20 63 68 61 72 74 |horizont|al chart|
|00000a70| 20 6c 69 6e 65 73 0d 73 | 65 74 20 6c 6f 63 6b 53 | lines.s|et lockS|
|00000a80| 63 72 65 65 6e 20 74 6f | 20 74 72 75 65 0d 70 75 |creen to| true.pu|
|00000a90| 73 68 20 63 61 72 64 0d | 67 6f 20 74 6f 20 62 6b |sh card.|go to bk|
|00000aa0| 67 6e 64 20 22 43 68 61 | 72 74 22 0d 70 75 74 20 |gnd "Cha|rt".put |
|00000ab0| 72 65 63 74 20 6f 66 20 | 74 68 69 73 20 63 61 72 |rect of |this car|
|00000ac0| 64 20 69 6e 74 6f 20 63 | 61 72 64 52 65 63 74 0d |d into c|ardRect.|
|00000ad0| 70 75 74 20 35 20 69 6e | 74 6f 20 6c 65 66 74 0d |put 5 in|to left.|
|00000ae0| 70 75 74 20 28 69 74 65 | 6d 20 33 20 6f 66 20 63 |put (ite|m 3 of c|
|00000af0| 61 72 64 52 65 63 74 29 | 20 2d 20 31 30 20 69 6e |ardRect)| - 10 in|
|00000b00| 74 6f 20 72 69 67 68 74 | 0d 70 75 74 20 31 30 20 |to right|.put 10 |
|00000b10| 69 6e 74 6f 20 74 6f 70 | 0d 70 75 74 20 28 69 74 |into top|.put (it|
|00000b20| 65 6d 20 34 20 6f 66 20 | 63 61 72 64 52 65 63 74 |em 4 of |cardRect|
|00000b30| 29 20 2d 20 31 30 20 69 | 6e 74 6f 20 62 6f 74 74 |) - 10 i|nto bott|
|00000b40| 6f 6d 0d 73 65 74 20 72 | 65 63 74 20 6f 66 20 62 |om.set r|ect of b|
|00000b50| 6b 67 6e 64 20 62 75 74 | 74 6f 6e 20 22 55 70 22 |kgnd but|ton "Up"|
|00000b60| 20 74 6f 20 c2 0d 28 72 | 69 67 68 74 20 2d 20 34 | to ..(r|ight - 4|
|00000b70| 30 29 2c 28 62 6f 74 74 | 6f 6d 20 2d 35 35 29 2c |0),(bott|om -55),|
|00000b80| 28 72 69 67 68 74 2d 32 | 30 29 2c 28 62 6f 74 74 |(right-2|0),(bott|
|00000b90| 6f 6d 20 2d 20 33 39 29 | 0d 73 65 74 20 72 65 63 |om - 39)|.set rec|
|00000ba0| 74 20 6f 66 20 62 6b 67 | 6e 64 20 62 75 74 74 6f |t of bkg|nd butto|
|00000bb0| 6e 20 22 44 6f 77 6e 22 | 20 74 6f 20 c2 0d 28 72 |n "Down"| to ..(r|
|00000bc0| 69 67 68 74 20 2d 20 34 | 30 29 2c 28 62 6f 74 74 |ight - 4|0),(bott|
|00000bd0| 6f 6d 2d 32 31 29 2c 28 | 72 69 67 68 74 2d 32 30 |om-21),(|right-20|
|00000be0| 29 2c 28 62 6f 74 74 6f | 6d 20 2d 20 35 29 0d 73 |),(botto|m - 5).s|
|00000bf0| 65 74 20 72 65 63 74 20 | 6f 66 20 62 6b 67 6e 64 |et rect |of bkgnd|
|00000c00| 20 62 75 74 74 6f 6e 20 | 22 4c 65 66 74 22 20 74 | button |"Left" t|
|00000c10| 6f 20 c2 0d 28 72 69 67 | 68 74 20 2d 20 35 35 29 |o ..(rig|ht - 55)|
|00000c20| 2c 28 62 6f 74 74 6f 6d | 20 2d 34 30 29 2c 28 72 |,(bottom| -40),(r|
|00000c30| 69 67 68 74 2d 33 39 29 | 2c 28 62 6f 74 74 6f 6d |ight-39)|,(bottom|
|00000c40| 20 2d 20 32 30 29 0d 73 | 65 74 20 72 65 63 74 20 | - 20).s|et rect |
|00000c50| 6f 66 20 62 6b 67 6e 64 | 20 62 75 74 74 6f 6e 20 |of bkgnd| button |
|00000c60| 22 52 69 67 68 74 22 20 | 74 6f 20 c2 0d 28 72 69 |"Right" |to ..(ri|
|00000c70| 67 68 74 20 2d 20 32 31 | 29 2c 28 62 6f 74 74 6f |ght - 21|),(botto|
|00000c80| 6d 20 2d 34 30 29 2c 28 | 72 69 67 68 74 2d 35 29 |m -40),(|right-5)|
|00000c90| 2c 28 62 6f 74 74 6f 6d | 20 2d 20 32 30 29 0d 68 |,(bottom| - 20).h|
|00000ca0| 69 64 65 20 6d 65 73 73 | 61 67 65 20 62 6f 78 0d |ide mess|age box.|
|00000cb0| 73 68 6f 77 20 6d 65 6e | 75 42 61 72 0d 70 6f 70 |show men|uBar.pop|
|00000cc0| 20 63 61 72 64 0d 70 61 | 73 73 20 6f 70 65 6e 53 | card.pa|ss openS|
|00000cd0| 74 61 63 6b 0d 65 6e 64 | 20 6f 70 65 6e 53 74 61 |tack.end| openSta|
|00000ce0| 63 6b 0d 0d 6f 6e 20 63 | 6c 6f 73 65 53 74 61 63 |ck..on c|loseStac|
|00000cf0| 6b 0d 67 6c 6f 62 61 6c | 20 6d 65 6e 75 31 0d 69 |k.global| menu1.i|
|00000d00| 66 20 6d 65 6e 75 31 20 | 69 73 20 6e 6f 74 20 22 |f menu1 |is not "|
|00000d10| 6e 6f 6e 65 22 20 74 68 | 65 6e 20 70 75 74 20 44 |none" th|en put D|
|00000d20| 65 6c 65 74 65 4d 65 6e | 75 28 6d 65 6e 75 31 29 |eleteMen|u(menu1)|
|00000d30| 20 69 6e 74 6f 20 6d 65 | 6e 75 31 0d 65 6e 64 20 | into me|nu1.end |
|00000d40| 63 6c 6f 73 65 53 74 61 | 63 6b 0d 0d 0d 6f 6e 20 |closeSta|ck...on |
|00000d50| 6f 70 65 6e 43 61 72 64 | 0d 67 6c 6f 62 61 6c 20 |openCard|.global |
|00000d60| 6d 65 6e 75 31 2c 20 6d | 49 74 65 6d 35 0d 0d 67 |menu1, m|Item5..g|
|00000d70| 65 74 20 74 68 65 20 73 | 68 6f 72 74 20 6e 61 6d |et the s|hort nam|
|00000d80| 65 20 6f 66 20 74 68 69 | 73 20 62 6b 67 6e 64 0d |e of thi|s bkgnd.|
|00000d90| 69 66 20 69 74 20 69 73 | 20 22 49 6e 66 6f 22 20 |if it is| "Info" |
|00000da0| 61 6e 64 20 6d 65 6e 75 | 31 20 69 73 20 6e 6f 74 |and menu|1 is not|
|00000db0| 20 22 6e 6f 6e 65 22 20 | 74 68 65 6e 0d 70 75 74 | "none" |then.put|
|00000dc0| 20 44 65 6c 65 74 65 4d | 65 6e 75 28 6d 65 6e 75 | DeleteM|enu(menu|
|00000dd0| 31 29 20 69 6e 74 6f 20 | 6d 65 6e 75 31 0d 70 75 |1) into |menu1.pu|
|00000de0| 74 20 22 6e 6f 6e 65 22 | 20 69 6e 74 6f 20 6d 65 |t "none"| into me|
|00000df0| 6e 75 31 0d 0d 65 6c 73 | 65 20 69 66 20 69 74 20 |nu1..els|e if it |
|00000e00| 69 73 20 22 46 61 6d 69 | 6c 79 22 20 61 6e 64 20 |is "Fami|ly" and |
|00000e10| 6d 65 6e 75 31 20 69 73 | 20 22 6e 6f 6e 65 22 20 |menu1 is| "none" |
|00000e20| 74 68 65 6e 0d 70 75 74 | 20 4e 65 77 4d 65 6e 75 |then.put| NewMenu|
|00000e30| 28 22 4f 70 74 69 6f 6e | 73 22 2c 22 4e 65 77 20 |("Option|s","New |
|00000e40| 43 68 69 6c 64 2e 2e 2e | 22 2c 22 4e 65 77 20 46 |Child...|","New F|
|00000e50| 61 6d 69 6c 79 2e 2e 2e | 22 2c 22 2d 22 2c c2 0d |amily...|","-",..|
|00000e60| 22 4e 65 77 20 47 65 6e | 65 6f 6c 6f 67 79 20 4c |"New Gen|eology L|
|00000e70| 69 6e 6b 22 2c 22 52 65 | 6d 65 6d 62 65 72 20 46 |ink","Re|member F|
|00000e80| 61 6d 69 6c 79 22 2c 22 | 2d 22 2c 22 53 61 76 65 |amily","|-","Save|
|00000e90| 20 74 6f 20 46 69 6c 65 | 2e 2e 2e 22 2c c2 0d 22 | to File|...",.."|
|00000ea0| 42 75 69 6c 64 20 43 68 | 61 72 74 22 2c 20 22 52 |Build Ch|art", "R|
|00000eb0| 65 62 75 69 6c 64 20 43 | 68 61 72 74 22 29 20 69 |ebuild C|hart") i|
|00000ec0| 6e 74 6f 20 6d 65 6e 75 | 31 0d 43 68 61 6e 67 65 |nto menu|1.Change|
|00000ed0| 4d 65 6e 75 20 6d 65 6e | 75 31 2c 20 35 2c 20 6d |Menu men|u1, 5, m|
|00000ee0| 49 74 65 6d 35 0d 45 6e | 61 62 6c 65 4d 65 6e 75 |Item5.En|ableMenu|
|00000ef0| 20 6d 65 6e 75 31 2c 20 | 32 2c 20 66 61 6c 73 65 | menu1, |2, false|
|00000f00| 0d 45 6e 61 62 6c 65 4d | 65 6e 75 20 6d 65 6e 75 |.EnableM|enu menu|
|00000f10| 31 2c 20 33 2c 20 66 61 | 6c 73 65 0d 45 6e 61 62 |1, 3, fa|lse.Enab|
|00000f20| 6c 65 4d 65 6e 75 20 6d | 65 6e 75 31 2c 20 36 2c |leMenu m|enu1, 6,|
|00000f30| 20 66 61 6c 73 65 0d 69 | 66 20 6c 69 6e 65 20 31 | false.i|f line 1|
|00000f40| 20 6f 66 20 66 69 65 6c | 64 20 22 43 61 72 64 20 | of fiel|d "Card |
|00000f50| 49 64 22 20 69 73 20 6e | 6f 74 20 22 22 20 74 68 |Id" is n|ot "" th|
|00000f60| 65 6e 0d 43 68 61 6e 67 | 65 4d 65 6e 75 20 6d 65 |en.Chang|eMenu me|
|00000f70| 6e 75 31 2c 20 38 2c 20 | 22 43 68 61 72 74 22 20 |nu1, 8, |"Chart" |
|00000f80| 20 2d 2d 20 6c 69 6e 6b | 20 74 6f 20 63 68 61 72 | -- link| to char|
|00000f90| 74 0d 65 6c 73 65 0d 45 | 6e 61 62 6c 65 4d 65 6e |t.else.E|nableMen|
|00000fa0| 75 20 6d 65 6e 75 31 2c | 20 39 2c 20 66 61 6c 73 |u menu1,| 9, fals|
|00000fb0| 65 0d 65 6e 64 20 69 66 | 0d 0d 65 6c 73 65 20 69 |e.end if|..else i|
|00000fc0| 66 20 69 74 20 69 73 20 | 22 43 68 61 72 74 22 20 |f it is |"Chart" |
|00000fd0| 74 68 65 6e 0d 70 75 74 | 20 44 65 6c 65 74 65 4d |then.put| DeleteM|
|00000fe0| 65 6e 75 28 6d 65 6e 75 | 31 29 20 69 6e 74 6f 20 |enu(menu|1) into |
|00000ff0| 6d 65 6e 75 31 0d 70 75 | 74 20 4e 65 77 4d 65 6e |menu1.pu|t NewMen|
|00001000| 75 28 22 4f 70 74 69 6f | 6e 73 22 2c 22 4e 65 77 |u("Optio|ns","New|
|00001010| 20 43 68 69 6c 64 2e 2e | 2e 22 2c 22 4e 65 77 20 | Child..|.","New |
|00001020| 46 61 6d 69 6c 79 2e 2e | 2e 22 2c 22 2d 22 2c c2 |Family..|.","-",.|
|00001030| 0d 22 4e 65 77 20 47 65 | 6e 65 6f 6c 6f 67 79 20 |."New Ge|neology |
|00001040| 4c 69 6e 6b 22 2c 22 52 | 65 6d 65 6d 62 65 72 20 |Link","R|emember |
|00001050| 46 61 6d 69 6c 79 22 2c | 22 2d 22 2c 22 53 61 76 |Family",|"-","Sav|
|00001060| 65 20 74 6f 20 46 69 6c | 65 2e 2e 2e 22 2c c2 0d |e to Fil|e...",..|
|00001070| 22 50 72 69 6e 74 20 43 | 68 61 72 74 22 2c 22 2d |"Print C|hart","-|
|00001080| 22 2c 22 52 65 74 75 72 | 6e 22 29 20 69 6e 74 6f |","Retur|n") into|
|00001090| 20 6d 65 6e 75 31 0d 72 | 65 70 65 61 74 20 77 69 | menu1.r|epeat wi|
|000010a0| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 37 0d 45 6e |th i = 1| to 7.En|
|000010b0| 61 62 6c 65 4d 65 6e 75 | 20 6d 65 6e 75 31 2c 20 |ableMenu| menu1, |
|000010c0| 69 2c 20 66 61 6c 73 65 | 0d 65 6e 64 20 72 65 70 |i, false|.end rep|
|000010d0| 65 61 74 0d 0d 65 6c 73 | 65 20 69 66 20 69 74 20 |eat..els|e if it |
|000010e0| 69 73 20 22 46 61 6d 69 | 6c 79 22 20 61 6e 64 20 |is "Fami|ly" and |
|000010f0| 6d 65 6e 75 31 20 69 73 | 20 6e 6f 74 20 22 6e 6f |menu1 is| not "no|
|00001100| 6e 65 22 20 74 68 65 6e | 0d 70 75 74 20 44 65 6c |ne" then|.put Del|
|00001110| 65 74 65 4d 65 6e 75 28 | 6d 65 6e 75 31 29 20 69 |eteMenu(|menu1) i|
|00001120| 6e 74 6f 20 6d 65 6e 75 | 31 0d 70 75 74 20 4e 65 |nto menu|1.put Ne|
|00001130| 77 4d 65 6e 75 28 22 4f | 70 74 69 6f 6e 73 22 2c |wMenu("O|ptions",|
|00001140| 22 4e 65 77 20 43 68 69 | 6c 64 2e 2e 2e 22 2c 22 |"New Chi|ld...","|
|00001150| 4e 65 77 20 46 61 6d 69 | 6c 79 2e 2e 2e 22 2c 22 |New Fami|ly...","|
|00001160| 2d 22 2c c2 0d 22 4e 65 | 77 20 47 65 6e 65 6f 6c |-",.."Ne|w Geneol|
|00001170| 6f 67 79 20 4c 69 6e 6b | 22 2c 22 52 65 6d 65 6d |ogy Link|","Remem|
|00001180| 62 65 72 20 46 61 6d 69 | 6c 79 22 2c 22 2d 22 2c |ber Fami|ly","-",|
|00001190| 22 53 61 76 65 20 74 6f | 20 46 69 6c 65 2e 2e 2e |"Save to| File...|
|000011a0| 22 2c c2 0d 22 42 75 69 | 6c 64 20 43 68 61 72 74 |",.."Bui|ld Chart|
|000011b0| 22 2c 22 52 65 62 75 69 | 6c 64 20 43 68 61 72 74 |","Rebui|ld Chart|
|000011c0| 22 29 20 69 6e 74 6f 20 | 6d 65 6e 75 31 0d 43 68 |") into |menu1.Ch|
|000011d0| 61 6e 67 65 4d 65 6e 75 | 20 6d 65 6e 75 31 2c 20 |angeMenu| menu1, |
|000011e0| 35 2c 20 6d 49 74 65 6d | 35 0d 45 6e 61 62 6c 65 |5, mItem|5.Enable|
|000011f0| 4d 65 6e 75 20 6d 65 6e | 75 31 2c 20 32 2c 20 66 |Menu men|u1, 2, f|
|00001200| 61 6c 73 65 0d 45 6e 61 | 62 6c 65 4d 65 6e 75 20 |alse.Ena|bleMenu |
|00001210| 6d 65 6e 75 31 2c 20 33 | 2c 20 66 61 6c 73 65 0d |menu1, 3|, false.|
|00001220| 45 6e 61 62 6c 65 4d 65 | 6e 75 20 6d 65 6e 75 31 |EnableMe|nu menu1|
|00001230| 2c 20 36 2c 20 66 61 6c | 73 65 0d 69 66 20 6c 69 |, 6, fal|se.if li|
|00001240| 6e 65 20 31 20 6f 66 20 | 66 69 65 6c 64 20 22 43 |ne 1 of |field "C|
|00001250| 61 72 64 20 49 64 22 20 | 69 73 20 6e 6f 74 20 22 |ard Id" |is not "|
|00001260| 22 20 74 68 65 6e 0d 43 | 68 61 6e 67 65 4d 65 6e |" then.C|hangeMen|
|00001270| 75 20 6d 65 6e 75 31 2c | 20 38 2c 20 22 43 68 61 |u menu1,| 8, "Cha|
|00001280| 72 74 22 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |rt"     |        |
|00001290| 2d 2d 20 74 68 65 72 65 | 20 69 73 20 61 20 63 68 |-- there| is a ch|
|000012a0| 61 72 74 0d 65 6c 73 65 | 0d 45 6e 61 62 6c 65 4d |art.else|.EnableM|
|000012b0| 65 6e 75 20 6d 65 6e 75 | 31 2c 20 39 2c 20 66 61 |enu menu|1, 9, fa|
|000012c0| 6c 73 65 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |lse.end |if.end i|
|000012d0| 66 0d 65 6e 64 20 6f 70 | 65 6e 43 61 72 64 0d 0d |f.end op|enCard..|
|000012e0| 6f 6e 20 69 64 6c 65 0d | 67 6c 6f 62 61 6c 20 6d |on idle.|global m|
|000012f0| 65 6e 75 31 2c 20 6c 61 | 73 74 54 69 63 6b 0d 69 |enu1, la|stTick.i|
|00001300| 66 20 28 74 68 65 20 74 | 69 63 6b 73 2d 6c 61 73 |f (the t|icks-las|
|00001310| 74 54 69 63 6b 29 3e 31 | 30 30 20 74 68 65 6e 0d |tTick)>1|00 then.|
|00001320| 70 75 74 20 74 68 65 20 | 74 69 63 6b 73 20 69 6e |put the |ticks in|
|00001330| 74 6f 20 6c 61 73 74 54 | 69 63 6b 0d 69 66 20 6d |to lastT|ick.if m|
|00001340| 65 6e 75 31 20 69 73 20 | 6e 6f 74 20 22 6e 6f 6e |enu1 is |not "non|
|00001350| 65 22 20 74 68 65 6e 20 | 53 68 6f 77 4d 65 6e 75 |e" then |ShowMenu|
|00001360| 28 6d 65 6e 75 31 29 0d | 65 6e 64 20 69 66 0d 70 |(menu1).|end if.p|
|00001370| 61 73 73 20 69 64 6c 65 | 0d 65 6e 64 20 69 64 6c |ass idle|.end idl|
|00001380| 65 0d 0d 2d 2d 20 48 45 | 52 45 20 41 52 45 20 46 |e..-- HE|RE ARE F|
|00001390| 55 4e 43 54 49 4f 4e 53 | 20 41 4e 44 20 50 4f 43 |UNCTIONS| AND POC|
|000013a0| 45 44 55 52 45 53 20 57 | 48 49 43 48 20 57 4f 4e |EDURES W|HICH WON|
|000013b0| 27 54 20 46 49 54 20 49 | 4e 0d 2d 2d 20 54 48 45 |'T FIT I|N.-- THE|
|000013c0| 20 42 41 43 4b 47 52 4f | 55 4e 44 20 53 43 52 49 | BACKGRO|UND SCRI|
|000013d0| 50 54 0d 0d 2d 2d 20 64 | 72 61 77 43 61 72 64 20 |PT..-- d|rawCard |
|000013e0| 64 72 61 77 73 20 61 20 | 66 61 6d 69 6c 79 20 62 |draws a |family b|
|000013f0| 72 61 6e 63 68 20 61 74 | 20 6c 6f 63 61 74 69 6f |ranch at| locatio|
|00001400| 6e 20 28 63 78 2c 63 79 | 29 0d 2d 2d 20 69 66 20 |n (cx,cy|).-- if |
|00001410| 70 72 6e 74 73 20 69 73 | 20 74 72 75 65 2c 20 74 |prnts is| true, t|
|00001420| 68 65 20 70 61 72 65 6e | 74 73 20 61 72 65 20 69 |he paren|ts are i|
|00001430| 6e 63 6c 75 64 65 64 0d | 2d 2d 20 73 69 62 6c 69 |ncluded.|-- sibli|
|00001440| 6e 67 73 20 61 72 65 20 | 61 20 64 69 73 74 61 6e |ngs are |a distan|
|00001450| 63 65 20 61 70 61 72 74 | 20 72 65 61 64 20 69 6e |ce apart| read in|
|00001460| 20 66 72 6f 6d 20 63 61 | 72 64 20 69 64 20 4f 72 | from ca|rd id Or|
|00001470| 69 67 69 6e 43 61 72 64 | 0d 2d 2d 20 69 74 20 6d |iginCard|.-- it m|
|00001480| 61 79 20 62 65 20 63 61 | 6c 6c 65 64 20 66 72 6f |ay be ca|lled fro|
|00001490| 6d 20 61 6e 79 20 63 61 | 72 64 0d 0d 66 75 6e 63 |m any ca|rd..func|
|000014a0| 74 69 6f 6e 20 64 72 61 | 77 43 61 72 64 20 63 78 |tion dra|wCard cx|
|000014b0| 20 2c 20 63 79 20 2c 20 | 70 72 6e 74 73 2c 20 46 | , cy , |prnts, F|
|000014c0| 61 6d 69 6c 79 43 61 72 | 64 49 44 2c 20 4f 72 69 |amilyCar|dID, Ori|
|000014d0| 67 69 6e 43 61 72 64 49 | 44 0d 0d 67 6c 6f 62 61 |ginCardI|D..globa|
|000014e0| 6c 20 20 6c 65 66 74 2c | 20 74 6f 70 2c 20 62 6f |l  left,| top, bo|
|000014f0| 74 74 6f 6d 2c 20 72 69 | 67 68 74 2c 20 6c 65 6e |ttom, ri|ght, len|
|00001500| 67 74 68 2c 20 78 5f 6f | 72 64 2c 20 79 5f 6f 72 |gth, x_o|rd, y_or|
|00001510| 64 20 2c c2 0d 78 31 2c | 63 78 73 73 2c 20 79 2c |d ,..x1,|cxss, y,|
|00001520| 20 73 69 62 63 61 72 64 | 2c 6f 6c 64 63 61 72 64 | sibcard|,oldcard|
|00001530| 2c 6f 6c 64 5f 79 2c 20 | 6e 72 65 63 6f 72 64 73 |,old_y, |nrecords|
|00001540| 2c 6e 6f 43 68 69 6c 64 | 72 65 6e 0d 0d 70 75 74 |,noChild|ren..put|
|00001550| 20 66 61 6c 73 65 20 69 | 6e 74 6f 20 72 65 73 75 | false i|nto resu|
|00001560| 6c 74 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |lt      |        |
|00001570| 20 20 20 2d 2d 20 69 66 | 20 62 72 61 6e 63 68 20 |   -- if| branch |
|00001580| 6e 6f 74 20 64 72 61 77 | 6e 0d 70 75 74 20 69 74 |not draw|n.put it|
|00001590| 65 6d 20 31 20 6f 66 20 | 6c 69 6e 65 20 31 20 6f |em 1 of |line 1 o|
|000015a0| 66 20 c2 0d 66 69 65 6c | 64 20 22 43 61 72 64 20 |f ..fiel|d "Card |
|000015b0| 49 64 22 20 6f 66 20 63 | 61 72 64 20 69 64 20 46 |Id" of c|ard id F|
|000015c0| 61 6d 69 6c 79 43 61 72 | 64 49 44 20 69 6e 74 6f |amilyCar|dID into|
|000015d0| 20 63 68 61 72 74 43 61 | 72 64 20 20 20 20 20 2d | chartCa|rd     -|
|000015e0| 2d 20 69 64 20 6f 66 20 | 67 65 6e 65 6f 6c 6f 67 |- id of |geneolog|
|000015f0| 79 20 63 68 61 72 74 20 | 63 61 72 0d 70 75 73 68 |y chart |car.push|
|00001600| 20 63 61 72 64 0d 69 66 | 20 63 68 61 72 74 43 61 | card.if| chartCa|
|00001610| 72 64 20 69 73 20 22 22 | 20 74 68 65 6e 0d 70 75 |rd is ""| then.pu|
|00001620| 74 20 6e 65 77 63 68 61 | 72 74 28 29 20 69 6e 74 |t newcha|rt() int|
|00001630| 6f 20 63 68 61 72 74 43 | 61 72 64 0d 70 75 74 20 |o chartC|ard.put |
|00001640| 63 68 61 72 74 43 61 72 | 64 20 69 6e 74 6f 20 6c |chartCar|d into l|
|00001650| 69 6e 65 20 31 20 6f 66 | 20 66 69 65 6c 64 c2 0d |ine 1 of| field..|
|00001660| 22 43 61 72 64 20 49 64 | 22 20 6f 66 20 63 61 72 |"Card Id|" of car|
|00001670| 64 20 69 64 20 46 61 6d | 69 6c 79 43 61 72 64 49 |d id Fam|ilyCardI|
|00001680| 44 20 20 20 20 20 20 20 | 20 2d 2d 20 72 65 63 6f |D       | -- reco|
|00001690| 72 64 20 6c 69 6e 6b 0d | 65 6e 64 20 69 66 0d 0d |rd link.|end if..|
|000016a0| 70 75 74 20 66 69 65 6c | 64 20 35 36 20 6f 66 20 |put fiel|d 56 of |
|000016b0| 63 61 72 64 20 69 64 20 | 46 61 6d 69 6c 79 43 61 |card id |FamilyCa|
|000016c0| 72 64 49 44 20 69 6e 74 | 6f 20 6e 6f 43 68 69 6c |rdID int|o noChil|
|000016d0| 64 72 65 6e 20 20 20 20 | 2d 2d 20 6e 75 6d 62 65 |dren    |-- numbe|
|000016e0| 72 20 6f 66 20 63 68 69 | 6c 64 72 65 6e 20 69 6e |r of chi|ldren in|
|000016f0| 20 66 61 6d 69 6c 79 0d | 70 75 74 20 6c 69 6e 65 | family.|put line|
|00001700| 20 31 20 6f 66 20 62 6b | 67 6e 64 20 66 69 65 6c | 1 of bk|gnd fiel|
|00001710| 64 20 22 68 75 73 62 61 | 6e 64 22 20 6f 66 20 63 |d "husba|nd" of c|
|00001720| 61 72 64 20 69 64 20 46 | 61 6d 69 6c 79 43 61 72 |ard id F|amilyCar|
|00001730| 64 49 44 20 69 6e 74 6f | 20 68 75 73 62 61 6e 64 |dID into| husband|
|00001740| 0d 70 75 74 20 6c 69 6e | 65 20 31 20 6f 66 20 62 |.put lin|e 1 of b|
|00001750| 6b 67 6e 64 20 66 69 65 | 6c 64 20 22 6c 61 73 74 |kgnd fie|ld "last|
|00001760| 6e 61 6d 65 22 20 6f 66 | 20 63 61 72 64 20 69 64 |name" of| card id|
|00001770| 20 46 61 6d 69 6c 79 43 | 61 72 64 49 44 20 69 6e | FamilyC|ardID in|
|00001780| 74 6f 20 6c 61 73 74 6e | 61 6d 65 0d 70 75 74 20 |to lastn|ame.put |
|00001790| 6c 69 6e 65 20 31 20 6f | 66 20 62 6b 67 6e 64 20 |line 1 o|f bkgnd |
|000017a0| 66 69 65 6c 64 20 22 77 | 69 66 65 22 20 6f 66 20 |field "w|ife" of |
|000017b0| 63 61 72 64 20 69 64 20 | 46 61 6d 69 6c 79 43 61 |card id |FamilyCa|
|000017c0| 72 64 49 44 20 69 6e 74 | 6f 20 77 69 66 65 0d 0d |rdID int|o wife..|
|000017d0| 67 6f 20 74 6f 20 63 68 | 61 72 74 43 61 72 64 20 |go to ch|artCard |
|000017e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000017f0| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 20 62 61 |        |   -- ba|
|00001800| 63 6b 20 74 6f 20 63 68 | 61 72 74 2c 20 77 68 65 |ck to ch|art, whe|
|00001810| 72 65 20 77 65 27 6c 6c | 20 73 74 61 79 20 66 6f |re we'll| stay fo|
|00001820| 72 20 61 20 77 68 69 6c | 65 0d 63 68 6f 6f 73 65 |r a whil|e.choose|
|00001830| 20 62 72 6f 77 73 65 20 | 74 6f 6f 6c 0d 0d 70 75 | browse |tool..pu|
|00001840| 74 20 63 78 20 2b 20 31 | 35 20 69 6e 74 6f 20 78 |t cx + 1|5 into x|
|00001850| 30 0d 70 75 74 20 63 78 | 20 2b 20 6c 65 6e 67 74 |0.put cx| + lengt|
|00001860| 68 20 69 6e 74 6f 20 78 | 31 0d 0d 69 66 20 70 72 |h into x|1..if pr|
|00001870| 6e 74 73 20 69 73 20 74 | 72 75 65 20 74 68 65 6e |nts is t|rue then|
|00001880| 0d 70 72 6e 74 73 42 75 | 74 74 6f 6e 20 78 30 2c |.prntsBu|tton x0,|
|00001890| 20 63 79 2c 20 46 61 6d | 69 6c 79 43 61 72 64 49 | cy, Fam|ilyCardI|
|000018a0| 44 2c 4f 72 69 67 69 6e | 43 61 72 64 49 44 2c 20 |D,Origin|CardID, |
|000018b0| c2 0d 77 69 66 65 2c 20 | 68 75 73 62 61 6e 64 2c |..wife, |husband,|
|000018c0| 20 6c 61 73 74 6e 61 6d | 65 2c 20 63 68 61 72 74 | lastnam|e, chart|
|000018d0| 43 61 72 64 0d 65 6e 64 | 20 69 66 0d 0d 0d 69 66 |Card.end| if...if|
|000018e0| 20 6e 6f 43 68 69 6c 64 | 72 65 6e 20 3e 20 30 20 | noChild|ren > 0 |
|000018f0| 74 68 65 6e 0d 70 72 6e | 74 73 6c 69 6e 65 20 78 |then.prn|tsline x|
|00001900| 30 2c 20 78 31 2c 20 63 | 78 2c 20 63 79 2c 20 70 |0, x1, c|x, cy, p|
|00001910| 72 6e 74 73 0d 69 66 20 | 6e 6f 74 20 69 6e 43 68 |rnts.if |not inCh|
|00001920| 61 72 74 28 78 31 2c 74 | 6f 70 29 20 74 68 65 6e |art(x1,t|op) then|
|00001930| 0d 70 75 74 20 78 31 20 | 69 6e 74 6f 20 78 5f 6f |.put x1 |into x_o|
|00001940| 72 64 0d 70 75 74 20 74 | 6f 70 20 69 6e 74 6f 20 |rd.put t|op into |
|00001950| 79 5f 6f 72 64 0d 72 65 | 70 65 61 74 20 75 6e 74 |y_ord.re|peat unt|
|00001960| 69 6c 20 69 6e 43 68 61 | 72 74 28 78 5f 6f 72 64 |il inCha|rt(x_ord|
|00001970| 2c 79 5f 6f 72 64 29 0d | 67 65 74 20 63 68 61 6e |,y_ord).|get chan|
|00001980| 67 65 43 68 61 72 74 28 | 78 5f 6f 72 64 2c 79 5f |geChart(|x_ord,y_|
|00001990| 6f 72 64 29 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |ord).end| repeat.|
|000019a0| 70 75 74 20 78 5f 6f 72 | 64 20 69 6e 74 6f 20 78 |put x_or|d into x|
|000019b0| 31 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2d |1       |       -|
|000019c0| 2d 20 78 5f 6f 72 64 20 | 72 65 74 75 72 6e 65 64 |- x_ord |returned|
|000019d0| 20 62 79 20 63 68 61 6e | 67 65 43 68 61 72 74 0d | by chan|geChart.|
|000019e0| 65 6e 64 20 69 66 0d 70 | 75 74 20 28 78 31 2b 35 |end if.p|ut (x1+5|
|000019f0| 29 20 69 6e 74 6f 20 63 | 78 73 73 0d 70 75 74 20 |) into c|xss.put |
|00001a00| 63 78 73 73 20 69 6e 74 | 6f 20 78 5f 6f 72 64 0d |cxss int|o x_ord.|
|00001a10| 70 75 74 20 74 68 65 20 | 69 64 20 6f 66 20 74 68 |put the |id of th|
|00001a20| 69 73 20 63 61 72 64 20 | 69 6e 74 6f 20 73 69 62 |is card |into sib|
|00001a30| 63 61 72 64 0d 0d 70 75 | 74 20 73 69 62 63 61 72 |card..pu|t sibcar|
|00001a40| 64 20 69 6e 74 6f 20 6f | 6c 64 63 61 72 64 0d 70 |d into o|ldcard.p|
|00001a50| 75 74 20 63 79 20 69 6e | 74 6f 20 6f 6c 64 5f 79 |ut cy in|to old_y|
|00001a60| 0d 70 75 74 20 33 20 69 | 6e 74 6f 20 64 65 6c 74 |.put 3 i|nto delt|
|00001a70| 61 0d 67 6f 20 74 6f 20 | 73 69 62 63 61 72 64 0d |a.go to |sibcard.|
|00001a80| 70 75 74 20 6c 69 6e 65 | 20 33 20 6f 66 20 66 69 |put line| 3 of fi|
|00001a90| 65 6c 64 20 22 43 61 72 | 64 20 49 64 22 20 6f 66 |eld "Car|d Id" of|
|00001aa0| 20 63 61 72 64 20 69 64 | 20 46 61 6d 69 6c 79 43 | card id| FamilyC|
|00001ab0| 61 72 64 49 44 20 69 6e | 74 6f 20 79 5f 73 74 61 |ardID in|to y_sta|
|00001ac0| 72 74 0d 0d 70 75 74 20 | 30 20 69 6e 74 6f 20 66 |rt..put |0 into f|
|00001ad0| 61 6d 69 6c 79 54 6f 74 | 61 6c 0d 72 65 70 65 61 |amilyTot|al.repea|
|00001ae0| 74 20 77 69 74 68 20 69 | 20 3d 20 31 20 74 6f 20 |t with i| = 1 to |
|00001af0| 6e 6f 43 68 69 6c 64 72 | 65 6e 0d 70 75 74 20 6c |noChildr|en.put l|
|00001b00| 69 6e 65 20 32 20 6f 66 | 20 62 6b 67 6e 64 20 66 |ine 2 of| bkgnd f|
|00001b10| 69 65 6c 64 20 28 32 2a | 69 2b 35 29 20 6f 66 20 |ield (2*|i+5) of |
|00001b20| c2 0d 63 61 72 64 20 69 | 64 20 46 61 6d 69 6c 79 |..card i|d Family|
|00001b30| 43 61 72 64 49 44 20 69 | 6e 74 6f 20 6e 0d 69 66 |CardID i|nto n.if|
|00001b40| 20 6e 20 3d 20 30 20 74 | 68 65 6e 20 70 75 74 20 | n = 0 t|hen put |
|00001b50| 31 20 69 6e 74 6f 20 6e | 0d 61 64 64 20 6e 20 74 |1 into n|.add n t|
|00001b60| 6f 20 66 61 6d 69 6c 79 | 54 6f 74 61 6c 20 2d 2d |o family|Total --|
|00001b70| 20 6e 6f 20 6f 66 20 66 | 61 6d 69 6c 69 65 73 20 | no of f|amilies |
|00001b80| 66 6f 72 20 63 68 69 6c | 64 0d 65 6e 64 20 72 65 |for chil|d.end re|
|00001b90| 70 65 61 74 0d 0d 72 65 | 70 65 61 74 20 77 69 74 |peat..re|peat wit|
|00001ba0| 68 20 69 20 3d 31 20 74 | 6f 20 20 6e 6f 43 68 69 |h i =1 t|o  noChi|
|00001bb0| 6c 64 72 65 6e 0d 64 6f | 53 69 62 6c 69 6e 67 73 |ldren.do|Siblings|
|00001bc0| 20 63 78 2c 20 63 79 2c | 20 69 2c 20 79 5f 73 74 | cx, cy,| i, y_st|
|00001bd0| 61 72 74 2c 20 66 61 6d | 69 6c 79 54 6f 74 61 6c |art, fam|ilyTotal|
|00001be0| 2c 20 46 61 6d 69 6c 79 | 43 61 72 64 49 44 2c 20 |, Family|CardID, |
|00001bf0| 4f 72 69 67 69 6e 43 61 | 72 64 49 44 0d 65 6e 64 |OriginCa|rdID.end|
|00001c00| 20 72 65 70 65 61 74 0d | 0d 65 6e 64 20 69 66 20 | repeat.|.end if |
|00001c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c20| 20 20 20 20 20 20 2d 2d | 20 73 6f 6d 65 20 63 68 |      --| some ch|
|00001c30| 69 6c 64 72 65 6e 0d 70 | 75 74 20 74 72 75 65 20 |ildren.p|ut true |
|00001c40| 69 6e 74 6f 20 72 65 73 | 75 6c 74 20 20 20 20 20 |into res|ult     |
|00001c50| 20 20 20 20 2d 2d 20 73 | 75 63 63 65 73 73 66 75 |    -- s|uccessfu|
|00001c60| 6c 20 64 72 61 77 69 6e | 67 0d 67 6f 20 74 6f 20 |l drawin|g.go to |
|00001c70| 63 68 61 72 74 63 61 72 | 64 20 20 20 20 20 20 20 |chartcar|d       |
|00001c80| 20 20 20 20 20 20 20 2d | 2d 20 62 61 63 6b 20 74 |       -|- back t|
|00001c90| 6f 20 73 74 61 72 74 69 | 6e 67 20 63 68 61 72 74 |o starti|ng chart|
|00001ca0| 0d 63 68 6f 6f 73 65 20 | 62 72 6f 77 73 65 20 74 |.choose |browse t|
|00001cb0| 6f 6f 6c 0d 0d 72 65 74 | 75 72 6e 20 72 65 73 75 |ool..ret|urn resu|
|00001cc0| 6c 74 0d 0d 65 6e 64 20 | 64 72 61 77 63 61 72 64 |lt..end |drawcard|
|00001cd0| 0d 0d 0d 2d 2d 20 6e 65 | 77 42 72 61 6e 63 68 20 |...-- ne|wBranch |
|00001ce0| 63 72 65 61 74 65 73 20 | 61 20 62 75 74 74 6f 6e |creates |a button|
|00001cf0| 20 61 74 20 70 6f 73 69 | 74 69 6f 6e 20 28 63 63 | at posi|tion (cc|
|00001d00| 78 2c 63 63 79 29 0d 2d | 2d 20 61 6e 64 20 73 74 |x,ccy).-|- and st|
|00001d10| 6f 72 65 73 20 69 74 20 | 6c 6f 63 61 74 69 6f 6e |ores it |location|
|00001d20| 20 69 6e 20 74 68 65 20 | 6c 69 6e 6b 65 64 20 63 | in the |linked c|
|00001d30| 61 72 64 20 62 75 74 74 | 6f 6e 44 65 73 74 0d 0d |ard butt|onDest..|
|00001d40| 66 75 6e 63 74 69 6f 6e | 20 6e 65 77 42 72 61 6e |function| newBran|
|00001d50| 63 68 20 63 63 78 20 2c | 20 63 63 79 20 2c 20 62 |ch ccx ,| ccy , b|
|00001d60| 75 74 74 6f 6e 44 65 73 | 74 2c 20 c2 0d 46 61 6d |uttonDes|t, ..Fam|
|00001d70| 69 6c 79 43 61 72 64 49 | 44 2c 20 4f 72 69 67 69 |ilyCardI|D, Origi|
|00001d80| 6e 43 61 72 64 49 44 20 | 2d 2d 20 62 75 74 74 6f |nCardID |-- butto|
|00001d90| 6e 44 65 73 74 20 69 73 | 20 74 68 65 20 69 64 20 |nDest is| the id |
|00001da0| 6e 75 6d 62 65 72 0d 2d | 2d 20 20 20 20 20 20 20 |number.-|-       |
|00001db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001de0| 6f 66 20 74 68 65 20 66 | 61 6d 69 6c 79 20 63 61 |of the f|amily ca|
|00001df0| 72 64 0d 0d 67 6c 6f 62 | 61 6c 20 6d 65 6e 75 31 |rd..glob|al menu1|
|00001e00| 2c 20 6c 65 66 74 2c 20 | 74 6f 70 2c 20 72 69 67 |, left, |top, rig|
|00001e10| 68 74 2c 20 62 6f 74 74 | 6f 6d 2c 20 78 5f 6f 72 |ht, bott|om, x_or|
|00001e20| 64 2c 20 79 5f 6f 72 64 | 2c 20 6e 72 65 63 6f 72 |d, y_ord|, nrecor|
|00001e30| 64 73 0d 0d 70 75 73 68 | 20 63 61 72 64 0d 70 75 |ds..push| card.pu|
|00001e40| 74 20 63 63 78 20 69 6e | 74 6f 20 78 5f 6f 72 64 |t ccx in|to x_ord|
|00001e50| 0d 70 75 74 20 63 63 79 | 20 69 6e 74 6f 20 79 5f |.put ccy| into y_|
|00001e60| 6f 72 64 0d 69 66 20 62 | 75 74 74 6f 6e 44 65 73 |ord.if b|uttonDes|
|00001e70| 74 20 69 73 20 6e 6f 74 | 20 22 22 20 74 68 65 6e |t is not| "" then|
|00001e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e90| 20 2d 2d 20 6e 6f 6e 2d | 65 6d 70 74 79 20 6c 69 | -- non-|empty li|
|00001ea0| 6e 6b 0d 63 68 6f 6f 73 | 65 20 62 72 6f 77 73 65 |nk.choos|e browse|
|00001eb0| 20 74 6f 6f 6c 0d 69 66 | 20 6e 6f 74 20 69 6e 43 | tool.if| not inC|
|00001ec0| 68 61 72 74 28 63 63 78 | 2c 63 63 79 29 20 74 68 |hart(ccx|,ccy) th|
|00001ed0| 65 6e 20 20 20 20 20 20 | 20 20 20 20 2d 2d 20 77 |en      |    -- w|
|00001ee0| 65 27 76 65 20 67 6f 6e | 65 20 6f 66 66 20 74 68 |e've gon|e off th|
|00001ef0| 65 20 63 68 61 72 74 0d | 72 65 70 65 61 74 20 75 |e chart.|repeat u|
|00001f00| 6e 74 69 6c 20 69 6e 43 | 68 61 72 74 28 78 5f 6f |ntil inC|hart(x_o|
|00001f10| 72 64 2c 79 5f 6f 72 64 | 29 0d 70 75 74 20 63 68 |rd,y_ord|).put ch|
|00001f20| 61 6e 67 65 43 68 61 72 | 74 28 78 5f 6f 72 64 2c |angeChar|t(x_ord,|
|00001f30| 79 5f 6f 72 64 29 20 69 | 6e 74 6f 20 63 68 61 72 |y_ord) i|nto char|
|00001f40| 74 44 69 72 20 20 2d 2d | 20 77 68 65 72 65 20 74 |tDir  --| where t|
|00001f50| 6f 3f 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 69 66 |o?.end r|epeat.if|
|00001f60| 20 28 63 68 61 72 74 44 | 69 72 20 69 73 20 22 55 | (chartD|ir is "U|
|00001f70| 70 22 29 20 6f 72 20 28 | 63 68 61 72 74 44 69 72 |p") or (|chartDir|
|00001f80| 20 69 73 20 22 44 6f 77 | 6e 22 29 20 74 68 65 6e | is "Dow|n") then|
|00001f90| 0d 70 75 74 20 79 5f 6f | 72 64 20 69 6e 74 6f 20 |.put y_o|rd into |
|00001fa0| 63 63 79 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ccy     |        |
|00001fb0| 20 20 20 20 20 20 20 2d | 2d 20 6e 65 77 20 63 6f |       -|- new co|
|00001fc0| 6f 72 64 69 6e 61 74 65 | 0d 65 6c 73 65 20 69 66 |ordinate|.else if|
|00001fd0| 20 28 63 68 61 72 74 44 | 69 72 20 69 73 20 22 4c | (chartD|ir is "L|
|00001fe0| 65 66 74 22 29 20 6f 72 | 20 28 63 68 61 72 74 44 |eft") or| (chartD|
|00001ff0| 69 72 20 69 73 20 22 52 | 69 67 68 74 22 29 20 74 |ir is "R|ight") t|
|00002000| 68 65 6e 0d 70 75 74 20 | 78 5f 6f 72 64 20 69 6e |hen.put |x_ord in|
|00002010| 74 6f 20 63 63 78 20 20 | 20 20 20 20 20 20 20 20 |to ccx  |        |
|00002020| 20 20 20 20 20 20 20 20 | 20 20 2d 2d 20 6e 65 77 |        |  -- new|
|00002030| 20 63 6f 6f 72 64 69 6e | 61 74 65 0d 65 6e 64 20 | coordin|ate.end |
|00002040| 69 66 0d 2d 2d 20 74 68 | 65 72 65 20 6d 61 79 20 |if.-- th|ere may |
|00002050| 62 65 20 61 20 6e 65 77 | 20 63 61 72 64 0d 65 6e |be a new| card.en|
|00002060| 64 20 69 66 0d 70 75 74 | 20 74 68 65 20 69 64 20 |d if.put| the id |
|00002070| 6f 66 20 74 68 69 73 20 | 63 61 72 64 20 69 6e 74 |of this |card int|
|00002080| 6f 20 63 68 61 72 74 49 | 44 20 20 20 2d 2d 20 69 |o chartI|D   -- i|
|00002090| 64 20 6f 66 20 63 68 61 | 72 74 20 63 61 72 64 0d |d of cha|rt card.|
|000020a0| 69 66 20 66 69 65 6c 64 | 20 35 36 20 6f 66 20 63 |if field| 56 of c|
|000020b0| 61 72 64 20 69 64 20 62 | 75 74 74 6f 6e 44 65 73 |ard id b|uttonDes|
|000020c0| 74 20 3e 20 30 20 74 68 | 65 6e 0d 2d 2d 20 20 73 |t > 0 th|en.--  s|
|000020d0| 6f 6d 65 20 63 68 69 6c | 64 72 65 6e 2c 20 6f 74 |ome chil|dren, ot|
|000020e0| 68 65 72 77 69 73 65 20 | 65 6d 70 74 79 20 62 72 |herwise |empty br|
|000020f0| 61 6e 63 68 0d 70 75 74 | 20 63 68 61 72 74 49 44 |anch.put| chartID|
|00002100| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 31 20 6f 66 20 | into li|ne 1 of |
|00002110| 66 69 65 6c 64 20 22 43 | 61 72 64 20 49 64 22 20 |field "C|ard Id" |
|00002120| 6f 66 20 63 61 72 64 20 | 69 64 20 62 75 74 74 6f |of card |id butto|
|00002130| 6e 44 65 73 74 0d 2d 2d | 20 20 20 20 20 20 20 20 |nDest.--|        |
|00002140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002150| 20 72 65 63 6f 72 64 20 | 6f 66 20 63 68 61 72 74 | record |of chart|
|00002160| 20 63 61 72 64 20 6f 6e | 20 66 61 6d 69 6c 79 20 | card on| family |
|00002170| 63 61 72 64 0d 43 68 61 | 6e 67 65 4d 65 6e 75 20 |card.Cha|ngeMenu |
|00002180| 6d 65 6e 75 31 2c 20 38 | 2c 20 43 68 61 72 74 20 |menu1, 8|, Chart |
|00002190| 2d 2d 20 63 61 6e 20 72 | 65 74 75 72 6e 20 74 6f |-- can r|eturn to|
|000021a0| 20 63 68 61 72 74 0d 45 | 6e 61 62 6c 65 4d 65 6e | chart.E|nableMen|
|000021b0| 75 20 6d 65 6e 75 31 2c | 20 39 2c 20 54 72 75 65 |u menu1,| 9, True|
|000021c0| 20 20 2d 2d 20 63 61 6e | 20 72 65 62 75 69 6c 64 |  -- can| rebuild|
|000021d0| 20 63 68 61 72 74 0d 70 | 75 74 20 63 63 78 20 69 | chart.p|ut ccx i|
|000021e0| 6e 74 6f 20 69 74 65 6d | 20 31 20 6f 66 20 6c 69 |nto item| 1 of li|
|000021f0| 6e 65 20 32 20 6f 66 20 | 66 69 65 6c 64 20 22 43 |ne 2 of |field "C|
|00002200| 61 72 64 20 49 64 22 20 | 6f 66 20 63 61 72 64 20 |ard Id" |of card |
|00002210| 69 64 20 62 75 74 74 6f | 6e 44 65 73 74 0d 70 75 |id butto|nDest.pu|
|00002220| 74 20 63 63 79 20 69 6e | 74 6f 20 69 74 65 6d 20 |t ccy in|to item |
|00002230| 32 20 6f 66 20 6c 69 6e | 65 20 32 20 6f 66 20 66 |2 of lin|e 2 of f|
|00002240| 69 65 6c 64 20 22 43 61 | 72 64 20 49 64 22 20 6f |ield "Ca|rd Id" o|
|00002250| 66 20 63 61 72 64 20 69 | 64 20 62 75 74 74 6f 6e |f card i|d button|
|00002260| 44 65 73 74 0d 70 75 74 | 20 6c 69 6e 65 20 6e 72 |Dest.put| line nr|
|00002270| 65 63 6f 72 64 73 20 6f | 66 20 66 69 65 6c 64 20 |ecords o|f field |
|00002280| 35 38 20 6f 66 20 63 61 | 72 64 20 69 64 20 4f 72 |58 of ca|rd id Or|
|00002290| 69 67 69 6e 43 61 72 64 | 49 44 20 69 6e 74 6f 20 |iginCard|ID into |
|000022a0| c2 0d 6c 69 6e 65 20 33 | 20 6f 66 20 66 69 65 6c |..line 3| of fiel|
|000022b0| 64 20 22 43 61 72 64 20 | 49 64 22 20 6f 66 20 63 |d "Card |Id" of c|
|000022c0| 61 72 64 20 69 64 20 62 | 75 74 74 6f 6e 44 65 73 |ard id b|uttonDes|
|000022d0| 74 0d 0d 2d 2d 20 20 20 | 20 20 20 20 20 20 73 74 |t..--   |      st|
|000022e0| 6f 72 65 20 63 61 6c 63 | 75 6c 61 74 65 64 20 70 |ore calc|ulated p|
|000022f0| 6f 73 69 74 69 6f 6e 20 | 6f 66 20 62 75 74 74 6f |osition |of butto|
|00002300| 6e 20 6f 6e 20 66 61 6d | 69 6c 79 20 63 61 72 64 |n on fam|ily card|
|00002310| 0d 0d 64 6f 4d 65 6e 75 | 20 22 4e 65 77 20 42 75 |..doMenu| "New Bu|
|00002320| 74 74 6f 6e 22 20 20 20 | 20 2d 2d 20 62 75 74 74 |tton"   | -- butt|
|00002330| 6f 6e 20 66 6f 72 20 66 | 61 6d 69 6c 79 20 63 61 |on for f|amily ca|
|00002340| 72 64 20 6c 69 6e 6b 0d | 73 65 74 20 73 68 6f 77 |rd link.|set show|
|00002350| 4e 61 6d 65 20 6f 66 20 | 62 75 74 74 6f 6e 20 22 |Name of |button "|
|00002360| 4e 65 77 20 42 75 74 74 | 6f 6e 22 20 74 6f 20 46 |New Butt|on" to F|
|00002370| 61 6c 73 65 0d 70 75 74 | 20 22 63 61 72 64 20 69 |alse.put| "card i|
|00002380| 64 22 26 26 62 75 74 74 | 6f 6e 44 65 73 74 20 69 |d"&&butt|onDest i|
|00002390| 6e 74 6f 20 62 75 74 74 | 6f 6e 4e 61 6d 0d 73 65 |nto butt|onNam.se|
|000023a0| 74 20 6e 61 6d 65 20 6f | 66 20 62 75 74 74 6f 6e |t name o|f button|
|000023b0| 20 22 4e 65 77 20 42 75 | 74 74 6f 6e 22 20 74 6f | "New Bu|tton" to|
|000023c0| 20 62 75 74 74 6f 6e 4e | 61 6d 0d 73 65 74 20 72 | buttonN|am.set r|
|000023d0| 65 63 74 20 6f 66 20 62 | 75 74 74 6f 6e 20 62 75 |ect of b|utton bu|
|000023e0| 74 74 6f 6e 4e 61 6d 20 | 74 6f 20 28 63 63 78 2d |ttonNam |to (ccx-|
|000023f0| 32 29 2c 28 63 63 79 2d | 32 29 2c 28 63 63 78 2b |2),(ccy-|2),(ccx+|
|00002400| 32 29 2c 28 63 63 79 2b | 32 29 0d 2d 2d 20 73 65 |2),(ccy+|2).-- se|
|00002410| 74 20 6c 6f 63 6b 53 63 | 72 65 65 6e 20 74 6f 20 |t lockSc|reen to |
|00002420| 66 61 6c 73 65 0d 72 65 | 74 75 72 6e 20 74 72 75 |false.re|turn tru|
|00002430| 65 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e       |        |
|00002440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 20 |        |     -- |
|00002450| 62 75 74 74 6f 6e 20 64 | 72 61 77 6e 0d 65 6c 73 |button d|rawn.els|
|00002460| 65 0d 2d 2d 20 73 65 74 | 20 6c 6f 63 6b 53 63 72 |e.-- set| lockScr|
|00002470| 65 65 6e 20 74 6f 20 66 | 61 6c 73 65 0d 72 65 74 |een to f|alse.ret|
|00002480| 75 72 6e 20 66 61 6c 73 | 65 20 20 20 20 20 20 20 |urn fals|e       |
|00002490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000024a0| 20 20 20 20 2d 2d 20 62 | 75 74 74 6f 6e 20 6e 6f |    -- b|utton no|
|000024b0| 74 20 64 72 61 77 6e 0d | 65 6e 64 20 69 66 0d 70 |t drawn.|end if.p|
|000024c0| 6f 70 20 63 61 72 64 0d | 65 6e 64 20 69 66 0d 0d |op card.|end if..|
|000024d0| 65 6e 64 20 6e 65 77 42 | 72 61 6e 63 68 0d 0d 0d |end newB|ranch...|
|000024e0| 2d 2d 20 74 65 73 74 73 | 20 77 68 65 74 68 65 72 |-- tests| whether|
|000024f0| 20 70 6f 69 6e 74 20 69 | 73 20 69 6e 20 64 72 61 | point i|s in dra|
|00002500| 77 69 6e 67 20 72 65 63 | 74 61 6e 67 6c 65 20 6f |wing rec|tangle o|
|00002510| 66 20 67 65 6e 65 6f 6c | 6f 67 79 20 63 68 61 72 |f geneol|ogy char|
|00002520| 74 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 69 6e 52 65 |t..funct|ion inRe|
|00002530| 63 74 20 78 20 2c 20 79 | 20 2c 20 74 68 65 52 65 |ct x , y| , theRe|
|00002540| 63 74 0d 0d 70 75 74 20 | 69 74 65 6d 20 31 20 6f |ct..put |item 1 o|
|00002550| 66 20 74 68 65 52 65 63 | 74 20 69 6e 74 6f 20 6c |f theRec|t into l|
|00002560| 0d 70 75 74 20 69 74 65 | 6d 20 32 20 6f 66 20 74 |.put ite|m 2 of t|
|00002570| 68 65 52 65 63 74 20 69 | 6e 74 6f 20 74 0d 70 75 |heRect i|nto t.pu|
|00002580| 74 20 69 74 65 6d 20 33 | 20 6f 66 20 74 68 65 52 |t item 3| of theR|
|00002590| 65 63 74 20 69 6e 74 6f | 20 72 0d 70 75 74 20 69 |ect into| r.put i|
|000025a0| 74 65 6d 20 34 20 6f 66 | 20 74 68 65 52 65 63 74 |tem 4 of| theRect|
|000025b0| 20 69 6e 74 6f 20 62 0d | 69 66 20 28 78 20 3c 3d | into b.|if (x <=|
|000025c0| 20 72 29 20 61 6e 64 20 | 28 6c 20 3c 3d 20 78 29 | r) and |(l <= x)|
|000025d0| 20 61 6e 64 20 28 79 20 | 3c 3d 20 62 29 20 61 6e | and (y |<= b) an|
|000025e0| 64 20 28 74 20 3c 3d 20 | 79 29 20 74 68 65 6e 0d |d (t <= |y) then.|
|000025f0| 72 65 74 75 72 6e 20 74 | 72 75 65 0d 65 6c 73 65 |return t|rue.else|
|00002600| 0d 72 65 74 75 72 6e 20 | 66 61 6c 73 65 0d 65 6e |.return |false.en|
|00002610| 64 20 69 66 0d 0d 65 6e | 64 20 69 6e 52 65 63 74 |d if..en|d inRect|
|00002620| 0d 0d 66 75 6e 63 74 69 | 6f 6e 20 69 6e 43 68 61 |..functi|on inCha|
|00002630| 72 74 20 20 78 20 2c 20 | 79 0d 67 6c 6f 62 61 6c |rt  x , |y.global|
|00002640| 20 6c 65 66 74 2c 20 74 | 6f 70 2c 20 72 69 67 68 | left, t|op, righ|
|00002650| 74 2c 20 62 6f 74 74 6f | 6d 0d 0d 69 66 20 28 78 |t, botto|m..if (x|
|00002660| 20 3c 3d 20 72 69 67 68 | 74 29 20 61 6e 64 20 28 | <= righ|t) and (|
|00002670| 6c 65 66 74 20 3c 3d 20 | 78 29 20 61 6e 64 20 28 |left <= |x) and (|
|00002680| 79 20 3c 3d 20 62 6f 74 | 74 6f 6d 29 20 61 6e 64 |y <= bot|tom) and|
|00002690| 20 28 74 6f 70 20 3c 3d | 20 79 29 20 74 68 65 6e | (top <=| y) then|
|000026a0| 0d 72 65 74 75 72 6e 20 | 74 72 75 65 0d 65 6c 73 |.return |true.els|
|000026b0| 65 0d 72 65 74 75 72 6e | 20 66 61 6c 73 65 0d 65 |e.return| false.e|
|000026c0| 6e 64 20 69 66 0d 0d 65 | 6e 64 20 69 6e 43 68 61 |nd if..e|nd inCha|
|000026d0| 72 74 0d 0d 2d 2d 20 63 | 72 65 61 74 65 73 20 61 |rt..-- c|reates a|
|000026e0| 20 6e 65 77 20 63 61 72 | 64 20 6f 72 20 67 6f 65 | new car|d or goe|
|000026f0| 73 20 74 6f 20 65 78 69 | 73 74 69 6e 67 20 6f 6e |s to exi|sting on|
|00002700| 65 20 69 66 20 70 6f 69 | 6e 74 20 69 73 20 6e 6f |e if poi|nt is no|
|00002710| 74 0d 2d 2d 20 69 6e 20 | 64 72 61 77 69 6e 67 20 |t.-- in |drawing |
|00002720| 72 65 63 74 61 6e 67 6c | 65 20 6f 66 20 67 65 6e |rectangl|e of gen|
|00002730| 65 6f 6c 6f 67 79 20 63 | 68 61 72 74 0d 0d 66 75 |eology c|hart..fu|
|00002740| 6e 63 74 69 6f 6e 20 63 | 68 61 6e 67 65 43 68 61 |nction c|hangeCha|
|00002750| 72 74 20 78 20 2c 20 79 | 0d 67 6c 6f 62 61 6c 20 |rt x , y|.global |
|00002760| 6c 65 66 74 2c 20 74 6f | 70 2c 20 72 69 67 68 74 |left, to|p, right|
|00002770| 2c 20 62 6f 74 74 6f 6d | 2c 20 78 5f 6f 72 64 2c |, bottom|, x_ord,|
|00002780| 20 79 5f 6f 72 64 0d 0d | 70 75 74 20 74 68 65 20 | y_ord..|put the |
|00002790| 69 64 20 6f 66 20 74 68 | 69 73 20 63 61 72 64 20 |id of th|is card |
|000027a0| 69 6e 74 6f 20 70 61 72 | 65 6e 74 49 44 0d 2d 2d |into par|entID.--|
|000027b0| 20 73 65 74 20 4c 6f 63 | 6b 73 63 72 65 65 6e 20 | set Loc|kscreen |
|000027c0| 74 6f 20 74 72 75 65 0d | 0d 69 66 20 78 20 3e 20 |to true.|.if x > |
|000027d0| 72 69 67 68 74 20 74 68 | 65 6e 0d 67 65 74 20 66 |right th|en.get f|
|000027e0| 69 65 6c 64 20 22 52 69 | 67 68 74 22 0d 69 66 20 |ield "Ri|ght".if |
|000027f0| 69 74 20 69 73 20 6e 6f | 74 20 65 6d 70 74 79 20 |it is no|t empty |
|00002800| 74 68 65 6e 0d 67 6f 20 | 74 6f 20 69 74 0d 65 6c |then.go |to it.el|
|00002810| 73 65 0d 70 75 73 68 20 | 63 61 72 64 0d 67 6f 20 |se.push |card.go |
|00002820| 74 6f 20 63 61 72 64 20 | 22 43 68 61 72 74 22 0d |to card |"Chart".|
|00002830| 64 6f 4d 65 6e 75 20 22 | 4e 65 77 20 43 61 72 64 |doMenu "|New Card|
|00002840| 22 0d 70 75 74 20 70 61 | 72 65 6e 74 49 44 20 69 |".put pa|rentID i|
|00002850| 6e 74 6f 20 66 69 65 6c | 64 20 22 4c 65 66 74 22 |nto fiel|d "Left"|
|00002860| 0d 67 65 74 20 74 68 65 | 20 69 64 20 6f 66 20 74 |.get the| id of t|
|00002870| 68 69 73 20 63 61 72 64 | 0d 70 6f 70 20 63 61 72 |his card|.pop car|
|00002880| 64 0d 70 75 74 20 69 74 | 20 69 6e 74 6f 20 66 69 |d.put it| into fi|
|00002890| 65 6c 64 20 22 52 69 67 | 68 74 22 0d 67 6f 20 74 |eld "Rig|ht".go t|
|000028a0| 6f 20 69 74 0d 65 6e 64 | 20 69 66 0d 70 75 74 20 |o it.end| if.put |
|000028b0| 78 20 2b 20 6c 65 66 74 | 20 2d 20 72 69 67 68 74 |x + left| - right|
|000028c0| 20 69 6e 74 6f 20 78 5f | 6f 72 64 20 2d 2d 20 74 | into x_|ord -- t|
|000028d0| 6f 20 62 65 20 75 73 65 | 64 20 65 6c 73 65 77 68 |o be use|d elsewh|
|000028e0| 65 72 65 0d 2d 2d 20 73 | 65 74 20 4c 6f 63 6b 73 |ere.-- s|et Locks|
|000028f0| 63 72 65 65 6e 20 74 6f | 20 66 61 6c 73 65 0d 72 |creen to| false.r|
|00002900| 65 74 75 72 6e 20 22 52 | 69 67 68 74 22 0d 0d 65 |eturn "R|ight"..e|
|00002910| 6c 73 65 20 69 66 20 78 | 20 3c 20 6c 65 66 74 20 |lse if x| < left |
|00002920| 74 68 65 6e 0d 67 65 74 | 20 66 69 65 6c 64 20 22 |then.get| field "|
|00002930| 4c 65 66 74 22 0d 69 66 | 20 69 74 20 69 73 20 6e |Left".if| it is n|
|00002940| 6f 74 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 67 6f |ot empty| then.go|
|00002950| 20 74 6f 20 69 74 0d 65 | 6c 73 65 0d 70 75 73 68 | to it.e|lse.push|
|00002960| 20 63 61 72 64 0d 67 6f | 20 74 6f 20 63 61 72 64 | card.go| to card|
|00002970| 20 22 43 68 61 72 74 22 | 0d 64 6f 4d 65 6e 75 20 | "Chart"|.doMenu |
|00002980| 22 4e 65 77 20 43 61 72 | 64 22 0d 70 75 74 20 70 |"New Car|d".put p|
|00002990| 61 72 65 6e 74 49 44 20 | 69 6e 74 6f 20 66 69 65 |arentID |into fie|
|000029a0| 6c 64 20 22 52 69 67 68 | 74 22 0d 67 65 74 20 74 |ld "Righ|t".get t|
|000029b0| 68 65 20 69 64 20 6f 66 | 20 74 68 69 73 20 63 61 |he id of| this ca|
|000029c0| 72 64 0d 70 6f 70 20 63 | 61 72 64 0d 70 75 74 20 |rd.pop c|ard.put |
|000029d0| 69 74 20 69 6e 74 6f 20 | 66 69 65 6c 64 20 22 4c |it into |field "L|
|000029e0| 65 66 74 22 0d 67 6f 20 | 74 6f 20 69 74 0d 65 6e |eft".go |to it.en|
|000029f0| 64 20 69 66 0d 70 75 74 | 20 78 20 2b 20 72 69 67 |d if.put| x + rig|
|00002a00| 68 74 20 2d 20 6c 65 66 | 74 20 69 6e 74 6f 20 78 |ht - lef|t into x|
|00002a10| 5f 6f 72 64 20 2d 2d 20 | 74 6f 20 62 65 20 75 73 |_ord -- |to be us|
|00002a20| 65 64 20 65 6c 73 65 77 | 68 65 72 65 0d 2d 2d 20 |ed elsew|here.-- |
|00002a30| 73 65 74 20 4c 6f 63 6b | 73 63 72 65 65 6e 20 74 |set Lock|screen t|
|00002a40| 6f 20 66 61 6c 73 65 0d | 72 65 74 75 72 6e 20 22 |o false.|return "|
|00002a50| 4c 65 66 74 22 0d 0d 65 | 6c 73 65 20 69 66 20 79 |Left"..e|lse if y|
|00002a60| 20 3c 20 74 6f 70 20 74 | 68 65 6e 0d 67 65 74 20 | < top t|hen.get |
|00002a70| 66 69 65 6c 64 20 22 55 | 70 22 0d 69 66 20 69 74 |field "U|p".if it|
|00002a80| 20 69 73 20 6e 6f 74 20 | 65 6d 70 74 79 20 74 68 | is not |empty th|
|00002a90| 65 6e 0d 67 6f 20 74 6f | 20 69 74 0d 65 6c 73 65 |en.go to| it.else|
|00002aa0| 0d 70 75 73 68 20 63 61 | 72 64 0d 67 6f 20 74 6f |.push ca|rd.go to|
|00002ab0| 20 63 61 72 64 20 22 43 | 68 61 72 74 22 0d 64 6f | card "C|hart".do|
|00002ac0| 4d 65 6e 75 20 22 4e 65 | 77 20 43 61 72 64 22 0d |Menu "Ne|w Card".|
|00002ad0| 70 75 74 20 70 61 72 65 | 6e 74 49 44 20 69 6e 74 |put pare|ntID int|
|00002ae0| 6f 20 66 69 65 6c 64 20 | 22 44 6f 77 6e 22 0d 67 |o field |"Down".g|
|00002af0| 65 74 20 74 68 65 20 69 | 64 20 6f 66 20 74 68 69 |et the i|d of thi|
|00002b00| 73 20 63 61 72 64 0d 70 | 6f 70 20 63 61 72 64 0d |s card.p|op card.|
|00002b10| 70 75 74 20 69 74 20 69 | 6e 74 6f 20 66 69 65 6c |put it i|nto fiel|
|00002b20| 64 20 22 55 70 22 0d 67 | 6f 20 74 6f 20 69 74 0d |d "Up".g|o to it.|
|00002b30| 65 6e 64 20 69 66 0d 70 | 75 74 20 79 20 2b 20 62 |end if.p|ut y + b|
|00002b40| 6f 74 74 6f 6d 20 2d 20 | 74 6f 70 20 69 6e 74 6f |ottom - |top into|
|00002b50| 20 79 5f 6f 72 64 20 2d | 2d 20 74 6f 20 62 65 20 | y_ord -|- to be |
|00002b60| 75 73 65 64 20 65 6c 73 | 65 77 68 65 72 65 0d 2d |used els|ewhere.-|
|00002b70| 2d 20 73 65 74 20 4c 6f | 63 6b 73 63 72 65 65 6e |- set Lo|ckscreen|
|00002b80| 20 74 6f 20 66 61 6c 73 | 65 0d 72 65 74 75 72 6e | to fals|e.return|
|00002b90| 20 22 55 70 22 0d 0d 65 | 6c 73 65 20 69 66 20 79 | "Up"..e|lse if y|
|00002ba0| 20 3e 20 62 6f 74 74 6f | 6d 20 74 68 65 6e 0d 67 | > botto|m then.g|
|00002bb0| 65 74 20 66 69 65 6c 64 | 20 22 44 6f 77 6e 22 0d |et field| "Down".|
|00002bc0| 69 66 20 69 74 20 69 73 | 20 6e 6f 74 20 65 6d 70 |if it is| not emp|
|00002bd0| 74 79 20 74 68 65 6e 0d | 67 6f 20 74 6f 20 69 74 |ty then.|go to it|
|00002be0| 0d 65 6c 73 65 0d 70 75 | 73 68 20 63 61 72 64 0d |.else.pu|sh card.|
|00002bf0| 67 6f 20 74 6f 20 63 61 | 72 64 20 22 43 68 61 72 |go to ca|rd "Char|
|00002c00| 74 22 0d 64 6f 4d 65 6e | 75 20 22 4e 65 77 20 43 |t".doMen|u "New C|
|00002c10| 61 72 64 22 0d 70 75 74 | 20 70 61 72 65 6e 74 49 |ard".put| parentI|
|00002c20| 44 20 69 6e 74 6f 20 66 | 69 65 6c 64 20 22 55 70 |D into f|ield "Up|
|00002c30| 22 0d 67 65 74 20 74 68 | 65 20 69 64 20 6f 66 20 |".get th|e id of |
|00002c40| 74 68 69 73 20 63 61 72 | 64 0d 70 6f 70 20 63 61 |this car|d.pop ca|
|00002c50| 72 64 0d 70 75 74 20 69 | 74 20 69 6e 74 6f 20 66 |rd.put i|t into f|
|00002c60| 69 65 6c 64 20 22 44 6f | 77 6e 22 0d 67 6f 20 74 |ield "Do|wn".go t|
|00002c70| 6f 20 69 74 0d 65 6e 64 | 20 69 66 0d 70 75 74 20 |o it.end| if.put |
|00002c80| 79 20 2b 20 74 6f 70 20 | 2d 20 62 6f 74 74 6f 6d |y + top |- bottom|
|00002c90| 20 69 6e 74 6f 20 79 5f | 6f 72 64 20 2d 2d 20 74 | into y_|ord -- t|
|00002ca0| 6f 20 62 65 20 75 73 65 | 64 20 65 6c 73 65 77 68 |o be use|d elsewh|
|00002cb0| 65 72 65 0d 2d 2d 20 73 | 65 74 20 4c 6f 63 6b 73 |ere.-- s|et Locks|
|00002cc0| 63 72 65 65 6e 20 74 6f | 20 66 61 6c 73 65 0d 72 |creen to| false.r|
|00002cd0| 65 74 75 72 6e 20 22 44 | 6f 77 6e 22 0d 0d 65 6e |eturn "D|own"..en|
|00002ce0| 64 20 69 66 0d 0d 65 6e | 64 20 63 68 61 6e 67 65 |d if..en|d change|
|00002cf0| 43 68 61 72 74 0d 0d 66 | 75 6e 63 74 69 6f 6e 20 |Chart..f|unction |
|00002d00| 67 6f 6f 64 4c 69 6e 6b | 20 74 68 65 43 61 72 64 |goodLink| theCard|
|00002d10| 0d 0d 67 6f 20 74 6f 20 | 74 68 65 43 61 72 64 0d |..go to |theCard.|
|00002d20| 69 66 20 74 68 65 20 72 | 65 73 75 6c 74 20 69 73 |if the r|esult is|
|00002d30| 20 6e 6f 74 20 65 6d 70 | 74 79 20 74 68 65 6e 20 | not emp|ty then |
|00002d40| 20 20 20 2d 2d 20 62 61 | 64 20 6c 69 6e 6b 0d 70 |   -- ba|d link.p|
|00002d50| 75 74 20 22 22 20 69 6e | 74 6f 20 66 69 65 6c 64 |ut "" in|to field|
|00002d60| 20 22 43 61 72 64 20 49 | 64 22 20 20 20 20 20 20 | "Card I|d"      |
|00002d70| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 20 69 6e |        |   -- in|
|00002d80| 69 74 69 61 6c 69 7a 65 | 20 6c 69 6e 6b 0d 43 68 |itialize| link.Ch|
|00002d90| 61 6e 67 65 4d 65 6e 75 | 20 6d 65 6e 75 31 2c 20 |angeMenu| menu1, |
|00002da0| 38 2c 20 22 42 75 69 6c | 64 20 43 68 61 72 74 22 |8, "Buil|d Chart"|
|00002db0| 20 2d 2d 20 64 69 73 61 | 6c 6c 6f 77 20 6f 74 68 | -- disa|llow oth|
|00002dc0| 65 72 20 6d 65 6e 75 20 | 6f 70 74 69 6f 6e 73 0d |er menu |options.|
|00002dd0| 70 75 73 68 20 63 61 72 | 64 0d 2d 2d 20 73 65 74 |push car|d.-- set|
|00002de0| 20 4c 6f 63 6b 53 63 72 | 65 65 6e 20 74 6f 20 66 | LockScr|een to f|
|00002df0| 61 6c 73 65 0d 72 65 74 | 75 72 6e 20 66 61 6c 73 |alse.ret|urn fals|
|00002e00| 65 0d 65 6c 73 65 0d 72 | 65 74 75 72 6e 20 74 72 |e.else.r|eturn tr|
|00002e10| 75 65 0d 65 6e 64 20 69 | 66 0d 0d 65 6e 64 20 67 |ue.end i|f..end g|
|00002e20| 6f 6f 64 4c 69 6e 6b 0d | 0d 66 75 6e 63 74 69 6f |oodLink.|.functio|
|00002e30| 6e 20 6e 65 77 63 68 61 | 72 74 20 20 20 20 20 20 |n newcha|rt      |
|00002e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 20 |        |     -- |
|00002e50| 6e 6f 20 63 68 61 72 74 | 20 63 61 72 64 0d 0d 70 |no chart| card..p|
|00002e60| 75 73 68 20 63 61 72 64 | 0d 67 6f 20 74 6f 20 63 |ush card|.go to c|
|00002e70| 61 72 64 20 22 43 68 61 | 72 74 22 0d 64 6f 4d 65 |ard "Cha|rt".doMe|
|00002e80| 6e 75 20 22 4e 65 77 20 | 43 61 72 64 22 20 20 20 |nu "New |Card"   |
|00002e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002ea0| 20 20 20 20 2d 2d 20 6d | 61 6b 65 20 61 20 63 68 |    -- m|ake a ch|
|00002eb0| 61 72 74 20 63 61 72 64 | 0d 70 75 74 20 74 68 65 |art card|.put the|
|00002ec0| 20 69 64 20 6f 66 20 74 | 68 69 73 20 63 61 72 64 | id of t|his card|
|00002ed0| 20 69 6e 74 6f 20 74 65 | 6d 70 20 20 2d 2d 20 69 | into te|mp  -- i|
|00002ee0| 64 20 6f 66 20 6e 65 77 | 20 63 68 61 72 74 20 63 |d of new| chart c|
|00002ef0| 61 72 64 0d 73 65 74 20 | 6e 61 6d 65 20 6f 66 20 |ard.set |name of |
|00002f00| 74 68 69 73 20 63 61 72 | 64 20 74 6f 20 22 4f 72 |this car|d to "Or|
|00002f10| 69 67 69 6e 22 0d 70 6f | 70 20 63 61 72 64 0d 72 |igin".po|p card.r|
|00002f20| 65 74 75 72 6e 20 74 65 | 6d 70 0d 0d 65 6e 64 20 |eturn te|mp..end |
|00002f30| 6e 65 77 63 68 61 72 74 | 0d 0d 6f 6e 20 70 72 6e |newchart|..on prn|
|00002f40| 74 73 42 75 74 74 6f 6e | 20 78 30 2c 63 79 2c 46 |tsButton| x0,cy,F|
|00002f50| 61 6d 69 6c 79 43 61 72 | 64 49 44 2c 4f 72 69 67 |amilyCar|dID,Orig|
|00002f60| 69 6e 43 61 72 64 49 44 | 2c 77 69 66 65 2c 68 75 |inCardID|,wife,hu|
|00002f70| 73 62 61 6e 64 2c c2 0d | 6c 61 73 74 6e 61 6d 65 |sband,..|lastname|
|00002f80| 2c 63 68 61 72 74 43 61 | 72 64 0d 0d 67 6c 6f 62 |,chartCa|rd..glob|
|00002f90| 61 6c 20 78 5f 6f 72 64 | 2c 20 79 5f 6f 72 64 2c |al x_ord|, y_ord,|
|00002fa0| 20 6e 72 65 63 6f 72 64 | 73 0d 0d 67 65 74 20 6e | nrecord|s..get n|
|00002fb0| 65 77 42 72 61 6e 63 68 | 28 78 30 2c 63 79 2c 46 |ewBranch|(x0,cy,F|
|00002fc0| 61 6d 69 6c 79 43 61 72 | 64 49 44 2c 46 61 6d 69 |amilyCar|dID,Fami|
|00002fd0| 6c 79 43 61 72 64 2c 4f | 72 69 67 69 6e 43 61 72 |lyCard,O|riginCar|
|00002fe0| 64 49 44 29 20 2d 2d 20 | 62 75 74 74 6f 6e 0d 70 |dID) -- |button.p|
|00002ff0| 75 74 20 74 68 65 20 73 | 68 6f 72 74 20 6e 61 6d |ut the s|hort nam|
|00003000| 65 20 6f 66 20 6c 61 73 | 74 20 62 75 74 74 6f 6e |e of las|t button|
|00003010| 20 69 6e 74 6f 20 66 69 | 65 6c 64 5f 6e 61 6d 65 | into fi|eld_name|
|00003020| 0d 2d 2d 20 73 65 74 20 | 4c 6f 63 6b 73 63 72 65 |.-- set |Lockscre|
|00003030| 65 6e 20 74 6f 20 74 72 | 75 65 0d 64 6f 4d 65 6e |en to tr|ue.doMen|
|00003040| 75 20 22 4e 65 77 20 46 | 69 65 6c 64 22 0d 67 65 |u "New F|ield".ge|
|00003050| 74 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |t the nu|mber of |
|00003060| 6c 61 73 74 20 63 61 72 | 64 20 66 69 65 6c 64 0d |last car|d field.|
|00003070| 73 65 74 20 54 65 78 74 | 66 6f 6e 74 20 6f 66 20 |set Text|font of |
|00003080| 63 61 72 64 20 66 69 65 | 6c 64 20 69 74 20 74 6f |card fie|ld it to|
|00003090| 20 22 54 69 6d 65 73 22 | 0d 73 65 74 20 54 65 78 | "Times"|.set Tex|
|000030a0| 74 73 69 7a 65 20 6f 66 | 20 63 61 72 64 20 66 69 |tsize of| card fi|
|000030b0| 65 6c 64 20 69 74 20 74 | 6f 20 39 0d 73 65 74 20 |eld it t|o 9.set |
|000030c0| 6e 61 6d 65 20 6f 66 20 | 63 61 72 64 20 66 69 65 |name of |card fie|
|000030d0| 6c 64 20 69 74 20 74 6f | 20 66 69 65 6c 64 5f 6e |ld it to| field_n|
|000030e0| 61 6d 65 26 26 31 0d 73 | 65 74 20 73 74 79 6c 65 |ame&&1.s|et style|
|000030f0| 20 6f 66 20 63 61 72 64 | 20 66 69 65 6c 64 20 69 | of card| field i|
|00003100| 74 20 74 6f 20 74 72 61 | 6e 73 70 61 72 65 6e 74 |t to tra|nsparent|
|00003110| 0d 73 65 74 20 72 65 63 | 74 20 6f 66 20 63 61 72 |.set rec|t of car|
|00003120| 64 20 66 69 65 6c 64 20 | 69 74 20 74 6f c2 0d 28 |d field |it to..(|
|00003130| 78 5f 6f 72 64 20 2d 20 | 31 35 29 2c 28 79 5f 6f |x_ord - |15),(y_o|
|00003140| 72 64 2d 31 34 29 2c 28 | 78 5f 6f 72 64 20 2b 20 |rd-14),(|x_ord + |
|00003150| 35 35 29 2c 28 79 5f 6f | 72 64 2d 31 29 0d 70 75 |55),(y_o|rd-1).pu|
|00003160| 74 20 28 66 69 72 73 74 | 20 77 6f 72 64 20 6f 66 |t (first| word of|
|00003170| 20 68 75 73 62 61 6e 64 | 29 26 26 6c 61 73 74 6e | husband|)&&lastn|
|00003180| 61 6d 65 20 69 6e 74 6f | c2 0d 63 61 72 64 20 66 |ame into|..card f|
|00003190| 69 65 6c 64 20 69 74 20 | 20 20 20 20 20 20 20 20 |ield it |        |
|000031a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000031b0| 20 20 20 20 20 20 20 2d | 2d 20 66 61 74 68 65 72 |       -|- father|
|000031c0| 0d 64 6f 4d 65 6e 75 20 | 22 4e 65 77 20 46 69 65 |.doMenu |"New Fie|
|000031d0| 6c 64 22 0d 67 65 74 20 | 74 68 65 20 6e 75 6d 62 |ld".get |the numb|
|000031e0| 65 72 20 6f 66 20 6c 61 | 73 74 20 63 61 72 64 20 |er of la|st card |
|000031f0| 66 69 65 6c 64 0d 73 65 | 74 20 54 65 78 74 66 6f |field.se|t Textfo|
|00003200| 6e 74 20 6f 66 20 63 61 | 72 64 20 66 69 65 6c 64 |nt of ca|rd field|
|00003210| 20 69 74 20 74 6f 20 22 | 54 69 6d 65 73 22 0d 73 | it to "|Times".s|
|00003220| 65 74 20 54 65 78 74 73 | 69 7a 65 20 6f 66 20 63 |et Texts|ize of c|
|00003230| 61 72 64 20 66 69 65 6c | 64 20 69 74 20 74 6f 20 |ard fiel|d it to |
|00003240| 39 0d 73 65 74 20 6e 61 | 6d 65 20 6f 66 20 63 61 |9.set na|me of ca|
|00003250| 72 64 20 66 69 65 6c 64 | 20 69 74 20 74 6f 20 66 |rd field| it to f|
|00003260| 69 65 6c 64 5f 6e 61 6d | 65 26 26 32 0d 73 65 74 |ield_nam|e&&2.set|
|00003270| 20 73 74 79 6c 65 20 6f | 66 20 63 61 72 64 20 66 | style o|f card f|
|00003280| 69 65 6c 64 20 69 74 20 | 74 6f 20 74 72 61 6e 73 |ield it |to trans|
|00003290| 70 61 72 65 6e 74 0d 73 | 65 74 20 72 65 63 74 20 |parent.s|et rect |
|000032a0| 6f 66 20 63 61 72 64 20 | 66 69 65 6c 64 20 69 74 |of card |field it|
|000032b0| 20 74 6f c2 0d 28 78 5f | 6f 72 64 20 2d 20 31 35 | to..(x_|ord - 15|
|000032c0| 29 2c 28 79 5f 6f 72 64 | 2b 31 29 2c 28 78 5f 6f |),(y_ord|+1),(x_o|
|000032d0| 72 64 20 2b 20 35 35 29 | 2c 28 79 5f 6f 72 64 2b |rd + 55)|,(y_ord+|
|000032e0| 31 34 29 0d 70 75 74 20 | 28 66 69 72 73 74 20 77 |14).put |(first w|
|000032f0| 6f 72 64 20 6f 66 20 77 | 69 66 65 29 26 26 6c 61 |ord of w|ife)&&la|
|00003300| 73 74 6e 61 6d 65 20 69 | 6e 74 6f c2 0d 63 61 72 |stname i|nto..car|
|00003310| 64 20 66 69 65 6c 64 20 | 69 74 20 20 20 20 20 20 |d field |it      |
|00003320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003330| 20 20 20 20 20 20 20 20 | 20 20 20 2d 2d 20 6d 6f |        |   -- mo|
|00003340| 74 68 65 72 0d 63 68 6f | 6f 73 65 20 62 72 6f 77 |ther.cho|ose brow|
|00003350| 73 65 20 74 6f 6f 6c 0d | 73 65 74 20 4c 6f 63 6b |se tool.|set Lock|
|00003360| 73 63 72 65 65 6e 20 74 | 6f 20 66 61 6c 73 65 0d |screen t|o false.|
|00003370| 67 6f 20 74 6f 20 63 68 | 61 72 74 43 61 72 64 0d |go to ch|artCard.|
|00003380| 0d 65 6e 64 20 70 72 6e | 74 73 42 75 74 74 6f 6e |.end prn|tsButton|
|00003390| 0d 0d 6f 6e 20 70 72 6e | 74 73 4c 69 6e 65 20 78 |..on prn|tsLine x|
|000033a0| 30 2c 20 78 31 2c 20 63 | 78 2c 20 63 79 2c 20 70 |0, x1, c|x, cy, p|
|000033b0| 72 6e 74 73 2c 20 63 68 | 61 72 74 43 61 72 64 0d |rnts, ch|artCard.|
|000033c0| 67 6c 6f 62 61 6c 20 78 | 5f 6f 72 64 2c 20 79 5f |global x|_ord, y_|
|000033d0| 6f 72 64 2c 6c 65 66 74 | 2c 20 72 69 67 68 74 2c |ord,left|, right,|
|000033e0| 20 74 6f 70 2c 20 62 6f | 74 74 6f 6d 0d 0d 63 68 | top, bo|ttom..ch|
|000033f0| 6f 6f 73 65 20 6c 69 6e | 65 20 74 6f 6f 6c 0d 69 |oose lin|e tool.i|
|00003400| 66 20 70 72 6e 74 73 20 | 74 68 65 6e 0d 69 66 20 |f prnts |then.if |
|00003410| 69 6e 43 68 61 72 74 28 | 78 31 2c 63 79 29 20 74 |inChart(|x1,cy) t|
|00003420| 68 65 6e 0d 64 72 61 67 | 20 66 72 6f 6d 20 78 30 |hen.drag| from x0|
|00003430| 2c 63 79 20 74 6f 20 78 | 31 2c 63 79 20 20 20 20 |,cy to x|1,cy    |
|00003440| 20 20 20 2d 2d 20 70 61 | 72 65 6e 74 73 20 6c 69 |   -- pa|rents li|
|00003450| 6e 65 0d 65 6c 73 65 0d | 64 72 61 67 20 66 72 6f |ne.else.|drag fro|
|00003460| 6d 20 78 30 2c 63 79 20 | 74 6f 20 72 69 67 68 74 |m x0,cy |to right|
|00003470| 2c 63 79 0d 70 75 74 20 | 78 31 20 69 6e 74 6f 20 |,cy.put |x1 into |
|00003480| 78 5f 6f 72 64 0d 70 75 | 74 20 63 79 20 69 6e 74 |x_ord.pu|t cy int|
|00003490| 6f 20 79 5f 6f 72 64 0d | 72 65 70 65 61 74 20 75 |o y_ord.|repeat u|
|000034a0| 6e 74 69 6c 20 69 6e 43 | 68 61 72 74 28 78 5f 6f |ntil inC|hart(x_o|
|000034b0| 72 64 2c 79 5f 6f 72 64 | 29 0d 67 65 74 20 63 68 |rd,y_ord|).get ch|
|000034c0| 61 6e 67 65 43 68 61 72 | 74 28 78 5f 6f 72 64 2c |angeChar|t(x_ord,|
|000034d0| 79 5f 6f 72 64 29 20 20 | 2d 2d 20 77 68 65 72 65 |y_ord)  |-- where|
|000034e0| 20 74 6f 3f 0d 65 6e 64 | 20 72 65 70 65 61 74 0d | to?.end| repeat.|
|000034f0| 64 72 61 67 20 66 72 6f | 6d 20 6c 65 66 74 2c 63 |drag fro|m left,c|
|00003500| 79 20 74 6f 20 78 5f 6f | 72 64 20 2c 63 79 2d 2d |y to x_o|rd ,cy--|
|00003510| 20 78 5f 6f 72 64 20 72 | 65 74 75 72 6e 65 64 20 | x_ord r|eturned |
|00003520| 62 79 20 63 68 61 6e 67 | 65 43 68 61 72 74 0d 67 |by chang|eChart.g|
|00003530| 6f 20 74 6f 20 63 68 61 | 72 74 43 61 72 64 0d 65 |o to cha|rtCard.e|
|00003540| 6e 64 20 69 66 0d 65 6c | 73 65 0d 69 66 20 69 6e |nd if.el|se.if in|
|00003550| 43 68 61 72 74 28 78 31 | 2c 63 79 29 20 74 68 65 |Chart(x1|,cy) the|
|00003560| 6e 0d 64 72 61 67 20 66 | 72 6f 6d 20 63 78 2b 32 |n.drag f|rom cx+2|
|00003570| 2c 63 79 20 74 6f 20 78 | 31 2c 63 79 20 20 20 20 |,cy to x|1,cy    |
|00003580| 20 20 20 2d 2d 20 70 61 | 72 65 6e 74 73 20 6c 69 |   -- pa|rents li|
|00003590| 6e 65 0d 65 6c 73 65 0d | 64 72 61 67 20 66 72 6f |ne.else.|drag fro|
|000035a0| 6d 20 63 78 2b 32 2c 63 | 79 20 74 6f 20 72 69 67 |m cx+2,c|y to rig|
|000035b0| 68 74 20 2c 63 79 0d 70 | 75 74 20 78 31 20 69 6e |ht ,cy.p|ut x1 in|
|000035c0| 74 6f 20 78 5f 6f 72 64 | 0d 70 75 74 20 63 79 20 |to x_ord|.put cy |
|000035d0| 69 6e 74 6f 20 79 5f 6f | 72 64 0d 72 65 70 65 61 |into y_o|rd.repea|
|000035e0| 74 20 75 6e 74 69 6c 20 | 69 6e 43 68 61 72 74 28 |t until |inChart(|
|000035f0| 78 5f 6f 72 64 2c 79 5f | 6f 72 64 29 0d 67 65 74 |x_ord,y_|ord).get|
|00003600| 20 63 68 61 6e 67 65 43 | 68 61 72 74 28 78 5f 6f | changeC|hart(x_o|
|00003610| 72 64 2c 79 5f 6f 72 64 | 29 0d 65 6e 64 20 72 65 |rd,y_ord|).end re|
|00003620| 70 65 61 74 0d 64 72 61 | 67 20 66 72 6f 6d 20 6c |peat.dra|g from l|
|00003630| 65 66 74 2c 63 79 20 74 | 6f 20 78 5f 6f 72 64 20 |eft,cy t|o x_ord |
|00003640| 2c 63 79 2d 2d 20 78 5f | 6f 72 64 20 72 65 74 75 |,cy-- x_|ord retu|
|00003650| 72 6e 65 64 20 62 79 20 | 63 68 61 6e 67 65 43 68 |rned by |changeCh|
|00003660| 61 72 74 0d 67 6f 20 74 | 6f 20 63 68 61 72 74 43 |art.go t|o chartC|
|00003670| 61 72 64 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 69 |ard.end |if.end i|
|00003680| 66 0d 0d 65 6e 64 20 70 | 72 6e 74 73 4c 69 6e 65 |f..end p|rntsLine|
|00003690| 0d 0d 6f 6e 20 64 6f 53 | 69 62 6c 69 6e 67 73 20 |..on doS|iblings |
|000036a0| 63 78 2c 20 63 79 2c 20 | 69 2c 20 79 5f 73 74 61 |cx, cy, |i, y_sta|
|000036b0| 72 74 2c 20 66 61 6d 69 | 6c 79 54 6f 74 61 6c 2c |rt, fami|lyTotal,|
|000036c0| 20 46 61 6d 69 6c 79 43 | 61 72 64 49 44 2c 20 4f | FamilyC|ardID, O|
|000036d0| 72 69 67 69 6e 43 61 72 | 64 49 44 0d 0d 67 6c 6f |riginCar|dID..glo|
|000036e0| 62 61 6c 20 78 5f 6f 72 | 64 2c 20 79 5f 6f 72 64 |bal x_or|d, y_ord|
|000036f0| 2c 20 78 31 2c 20 63 78 | 73 73 2c 20 79 2c 20 64 |, x1, cx|ss, y, d|
|00003700| 69 73 74 2c c2 0d 73 69 | 62 63 61 72 64 2c 6f 6c |ist,..si|bcard,ol|
|00003710| 64 63 61 72 64 2c 6f 6c | 64 5f 79 2c 20 62 6f 74 |dcard,ol|d_y, bot|
|00003720| 74 6f 6d 2c 20 74 6f 70 | 2c 20 6c 65 66 74 2c 20 |tom, top|, left, |
|00003730| 72 69 67 68 74 2c 6c 65 | 6e 67 74 68 2c 20 6e 72 |right,le|ngth, nr|
|00003740| 65 63 6f 72 64 73 0d 0d | 70 75 74 20 28 35 2b 32 |ecords..|put (5+2|
|00003750| 2a 69 29 20 69 6e 74 6f | 20 66 69 65 6c 64 63 6f |*i) into| fieldco|
|00003760| 75 6e 74 0d 0d 70 75 74 | 20 66 69 72 73 74 20 77 |unt..put| first w|
|00003770| 6f 72 64 20 6f 66 20 6c | 69 6e 65 20 31 20 6f 66 |ord of l|ine 1 of|
|00003780| 20 62 6b 67 6e 64 20 66 | 69 65 6c 64 20 69 64 20 | bkgnd f|ield id |
|00003790| 66 69 65 6c 64 63 6f 75 | 6e 74 20 6f 66 20 c2 0d |fieldcou|nt of ..|
|000037a0| 63 61 72 64 20 69 64 20 | 46 61 6d 69 6c 79 43 61 |card id |FamilyCa|
|000037b0| 72 64 49 44 20 69 6e 74 | 6f 20 63 68 69 6c 64 20 |rdID int|o child |
|000037c0| 2d 2d 20 63 68 69 6c 64 | 27 73 20 6e 61 6d 65 0d |-- child|'s name.|
|000037d0| 0d 0d 70 75 74 20 6c 69 | 6e 65 20 32 20 6f 66 20 |..put li|ne 2 of |
|000037e0| 62 6b 67 6e 64 20 66 69 | 65 6c 64 20 69 64 20 66 |bkgnd fi|eld id f|
|000037f0| 69 65 6c 64 63 6f 75 6e | 74 20 6f 66 20 c2 0d 63 |ieldcoun|t of ..c|
|00003800| 61 72 64 20 69 64 20 46 | 61 6d 69 6c 79 43 61 72 |ard id F|amilyCar|
|00003810| 64 49 44 20 69 6e 74 6f | 20 66 61 6d 69 6c 79 43 |dID into| familyC|
|00003820| 6f 75 6e 74 20 2d 2d 20 | 6e 6f 20 6f 66 20 66 61 |ount -- |no of fa|
|00003830| 6d 69 6c 69 65 73 20 66 | 6f 72 20 63 68 69 6c 64 |milies f|or child|
|00003840| 0d 69 66 20 66 61 6d 69 | 6c 79 43 6f 75 6e 74 20 |.if fami|lyCount |
|00003850| 3d 20 30 20 74 68 65 6e | 20 70 75 74 20 31 20 69 |= 0 then| put 1 i|
|00003860| 6e 74 6f 20 66 61 6d 69 | 6c 79 43 6f 75 6e 74 0d |nto fami|lyCount.|
|00003870| 0d 72 65 70 65 61 74 20 | 77 69 74 68 20 6a 20 3d |.repeat |with j =|
|00003880| 20 31 20 74 6f 20 66 61 | 6d 69 6c 79 43 6f 75 6e | 1 to fa|milyCoun|
|00003890| 74 0d 70 75 74 20 69 74 | 65 6d 20 31 20 6f 66 20 |t.put it|em 1 of |
|000038a0| 6c 69 6e 65 20 6a 20 2b | 20 32 20 6f 66 20 62 6b |line j +| 2 of bk|
|000038b0| 67 6e 64 20 66 69 65 6c | 64 20 69 64 20 66 69 65 |gnd fiel|d id fie|
|000038c0| 6c 64 63 6f 75 6e 74 20 | 6f 66 20 c2 0d 63 61 72 |ldcount |of ..car|
|000038d0| 64 20 69 64 20 46 61 6d | 69 6c 79 43 61 72 64 49 |d id Fam|ilyCardI|
|000038e0| 44 20 69 6e 74 6f 20 63 | 68 69 6c 64 73 70 0d 70 |D into c|hildsp.p|
|000038f0| 75 74 20 28 66 69 72 73 | 74 20 77 6f 72 64 20 6f |ut (firs|t word o|
|00003900| 66 20 63 68 69 6c 64 73 | 70 29 26 26 28 6c 61 73 |f childs|p)&&(las|
|00003910| 74 20 77 6f 72 64 20 6f | 66 20 63 68 69 6c 64 73 |t word o|f childs|
|00003920| 70 29 20 69 6e 74 6f 20 | 63 68 69 6c 64 73 70 20 |p) into |childsp |
|00003930| 20 20 2d 2d 20 73 70 6f | 75 73 65 27 73 20 6e 61 |  -- spo|use's na|
|00003940| 6d 65 0d 0d 70 75 74 20 | 69 74 65 6d 20 32 20 6f |me..put |item 2 o|
|00003950| 66 20 6c 69 6e 65 20 6a | 2b 32 20 6f 66 20 62 6b |f line j|+2 of bk|
|00003960| 67 6e 64 20 66 69 65 6c | 64 20 69 64 20 66 69 65 |gnd fiel|d id fie|
|00003970| 6c 64 63 6f 75 6e 74 20 | 6f 66 20 c2 0d 63 61 72 |ldcount |of ..car|
|00003980| 64 20 69 64 20 46 61 6d | 69 6c 79 43 61 72 64 49 |d id Fam|ilyCardI|
|00003990| 44 20 69 6e 74 6f 20 63 | 68 69 6c 64 63 61 72 64 |D into c|hildcard|
|000039a0| 0d 0d 61 64 64 20 31 20 | 74 6f 20 6e 72 65 63 6f |..add 1 |to nreco|
|000039b0| 72 64 73 0d 70 75 74 20 | 6c 69 6e 65 20 6e 72 65 |rds.put |line nre|
|000039c0| 63 6f 72 64 73 20 6f 66 | 20 66 69 65 6c 64 20 35 |cords of| field 5|
|000039d0| 38 20 6f 66 20 63 61 72 | 64 20 69 64 20 4f 72 69 |8 of car|d id Ori|
|000039e0| 67 69 6e 43 61 72 64 49 | 44 20 69 6e 74 6f 20 79 |ginCardI|D into y|
|000039f0| 5f 63 68 69 6c 64 0d 69 | 66 20 79 5f 63 68 69 6c |_child.i|f y_chil|
|00003a00| 64 20 69 73 20 6e 6f 74 | 20 65 6d 70 74 79 20 74 |d is not| empty t|
|00003a10| 68 65 6e 0d 70 75 74 20 | 79 5f 63 68 69 6c 64 20 |hen.put |y_child |
|00003a20| 2d 20 79 5f 73 74 61 72 | 74 20 69 6e 74 6f 20 64 |- y_star|t into d|
|00003a30| 65 6c 74 61 0d 65 6c 73 | 65 0d 70 75 74 20 72 6f |elta.els|e.put ro|
|00003a40| 75 6e 64 28 28 69 2d 28 | 66 61 6d 69 6c 79 54 6f |und((i-(|familyTo|
|00003a50| 74 61 6c 2b 31 29 2f 32 | 29 2a 64 69 73 74 29 20 |tal+1)/2|)*dist) |
|00003a60| 69 6e 74 6f 20 64 65 6c | 74 61 0d 65 6e 64 20 69 |into del|ta.end i|
|00003a70| 66 0d 69 66 20 28 64 65 | 6c 74 61 20 3c 20 30 29 |f.if (de|lta < 0)|
|00003a80| 20 61 6e 64 20 28 69 3d | 31 29 20 74 68 65 6e 0d | and (i=|1) then.|
|00003a90| 70 75 74 20 74 72 75 65 | 20 69 6e 74 6f 20 75 70 |put true| into up|
|00003aa0| 54 72 65 65 0d 65 6c 73 | 65 0d 70 75 74 20 66 61 |Tree.els|e.put fa|
|00003ab0| 6c 73 65 20 69 6e 74 6f | 20 75 70 54 72 65 65 0d |lse into| upTree.|
|00003ac0| 65 6e 64 20 69 66 0d 69 | 66 20 63 68 69 6c 64 73 |end if.i|f childs|
|00003ad0| 70 20 69 73 20 6e 6f 74 | 20 22 20 22 20 74 68 65 |p is not| " " the|
|00003ae0| 6e 0d 70 75 74 20 63 79 | 20 2b 20 64 65 6c 74 61 |n.put cy| + delta|
|00003af0| 20 69 6e 74 6f 20 79 0d | 70 75 74 20 79 20 69 6e | into y.|put y in|
|00003b00| 74 6f 20 79 5f 6f 72 64 | 0d 0d 69 66 20 6e 65 77 |to y_ord|..if new|
|00003b10| 42 72 61 6e 63 68 28 78 | 5f 6f 72 64 2c 79 5f 6f |Branch(x|_ord,y_o|
|00003b20| 72 64 2c 6c 61 73 74 20 | 77 6f 72 64 20 6f 66 20 |rd,last |word of |
|00003b30| 63 68 69 6c 64 63 61 72 | 64 2c 46 61 6d 69 6c 79 |childcar|d,Family|
|00003b40| 43 61 72 64 49 44 2c 4f | 72 69 67 69 6e 43 61 72 |CardID,O|riginCar|
|00003b50| 64 49 44 29 20 74 68 65 | 6e 20 20 2d 2d 20 6d 61 |dID) the|n  -- ma|
|00003b60| 6b 65 20 61 20 62 75 74 | 74 6f 6e 0d 2d 2d 20 78 |ke a but|ton.-- x|
|00003b70| 5f 6f 72 64 2c 79 5f 6f | 72 64 20 72 65 74 75 72 |_ord,y_o|rd retur|
|00003b80| 6e 65 64 20 62 79 20 6e | 65 77 42 72 61 6e 63 68 |ned by n|ewBranch|
|00003b90| 0d 69 66 20 6a 20 3c 3d | 20 31 20 74 68 65 6e 0d |.if j <=| 1 then.|
|00003ba0| 64 6f 43 68 69 6c 64 53 | 70 46 69 65 6c 64 73 20 |doChildS|pFields |
|00003bb0| 63 68 69 6c 64 2c 20 63 | 68 69 6c 64 73 70 2c 20 |child, c|hildsp, |
|00003bc0| 74 72 75 65 2c 20 74 72 | 75 65 2c 20 6a 0d 65 6c |true, tr|ue, j.el|
|00003bd0| 73 65 0d 64 6f 43 68 69 | 6c 64 53 70 46 69 65 6c |se.doChi|ldSpFiel|
|00003be0| 64 73 20 63 68 69 6c 64 | 2c 20 63 68 69 6c 64 73 |ds child|, childs|
|00003bf0| 70 2c 20 74 72 75 65 2c | 20 66 61 6c 73 65 2c 20 |p, true,| false, |
|00003c00| 6a 0d 65 6e 64 20 69 66 | 0d 65 6c 73 65 20 20 20 |j.end if|.else   |
|00003c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2d 2d |        |      --|
|00003c30| 20 74 68 65 72 65 20 61 | 72 65 20 6e 6f 20 63 68 | there a|re no ch|
|00003c40| 69 6c 64 72 65 6e 0d 67 | 6f 20 74 6f 20 73 69 62 |ildren.g|o to sib|
|00003c50| 63 61 72 64 0d 70 75 74 | 20 63 79 20 2b 20 64 65 |card.put| cy + de|
|00003c60| 6c 74 61 20 69 6e 74 6f | 20 79 0d 70 75 74 20 79 |lta into| y.put y|
|00003c70| 20 69 6e 74 6f 20 79 5f | 6f 72 64 0d 69 66 20 6e | into y_|ord.if n|
|00003c80| 6f 74 20 69 6e 43 68 61 | 72 74 28 78 31 2c 79 5f |ot inCha|rt(x1,y_|
|00003c90| 6f 72 64 29 20 74 68 65 | 6e 20 20 20 20 20 20 20 |ord) the|n       |
|00003ca0| 20 2d 2d 20 67 6f 6e 65 | 20 6f 66 66 20 74 68 65 | -- gone| off the|
|00003cb0| 20 63 68 61 72 74 3f 0d | 72 65 70 65 61 74 20 75 | chart?.|repeat u|
|00003cc0| 6e 74 69 6c 20 69 6e 43 | 68 61 72 74 28 78 5f 6f |ntil inC|hart(x_o|
|00003cd0| 72 64 2c 79 5f 6f 72 64 | 29 0d 67 65 74 20 63 68 |rd,y_ord|).get ch|
|00003ce0| 61 6e 67 65 43 68 61 72 | 74 28 78 5f 6f 72 64 2c |angeChar|t(x_ord,|
|00003cf0| 79 5f 6f 72 64 29 20 2d | 2d 20 79 5f 6f 72 64 20 |y_ord) -|- y_ord |
|00003d00| 72 65 74 75 72 6e 65 64 | 20 62 79 20 63 68 61 6e |returned| by chan|
|00003d10| 67 65 43 68 61 72 0d 65 | 6e 64 20 72 65 70 65 61 |geChar.e|nd repea|
|00003d20| 74 0d 65 6e 64 20 69 66 | 0d 69 66 20 6a 20 3c 3d |t.end if|.if j <=|
|00003d30| 20 31 20 74 68 65 6e 0d | 64 6f 43 68 69 6c 64 53 | 1 then.|doChildS|
|00003d40| 70 46 69 65 6c 64 73 20 | 63 68 69 6c 64 2c 20 63 |pFields |child, c|
|00003d50| 68 69 6c 64 73 70 2c 20 | 66 61 6c 73 65 2c 20 74 |hildsp, |false, t|
|00003d60| 72 75 65 2c 20 6a 0d 65 | 6c 73 65 0d 64 6f 43 68 |rue, j.e|lse.doCh|
|00003d70| 69 6c 64 53 70 46 69 65 | 6c 64 73 20 63 68 69 6c |ildSpFie|lds chil|
|00003d80| 64 2c 20 63 68 69 6c 64 | 73 70 2c 20 66 61 6c 73 |d, child|sp, fals|
|00003d90| 65 2c 20 66 61 6c 73 65 | 2c 20 6a 0d 65 6e 64 20 |e, false|, j.end |
|00003da0| 69 66 0d 65 6e 64 20 69 | 66 0d 0d 65 6c 73 65 20 |if.end i|f..else |
|00003db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003dd0| 20 20 2d 2d 20 6e 6f 20 | 73 70 6f 75 73 65 0d 70 |  -- no |spouse.p|
|00003de0| 75 74 20 63 79 20 2b 20 | 64 65 6c 74 61 20 69 6e |ut cy + |delta in|
|00003df0| 74 6f 20 79 0d 70 75 74 | 20 79 20 69 6e 74 6f 20 |to y.put| y into |
|00003e00| 79 5f 6f 72 64 0d 0d 69 | 66 20 6e 6f 74 20 69 6e |y_ord..i|f not in|
|00003e10| 43 68 61 72 74 28 78 31 | 2c 79 5f 6f 72 64 29 20 |Chart(x1|,y_ord) |
|00003e20| 74 68 65 6e 20 20 20 20 | 20 20 20 20 20 20 20 2d |then    |       -|
|00003e30| 2d 20 67 6f 6e 65 20 6f | 66 66 20 74 68 65 20 63 |- gone o|ff the c|
|00003e40| 68 61 72 74 3f 0d 72 65 | 70 65 61 74 20 75 6e 74 |hart?.re|peat unt|
|00003e50| 69 6c 20 69 6e 43 68 61 | 72 74 28 78 5f 6f 72 64 |il inCha|rt(x_ord|
|00003e60| 2c 79 5f 6f 72 64 29 0d | 67 65 74 20 63 68 61 6e |,y_ord).|get chan|
|00003e70| 67 65 43 68 61 72 74 28 | 78 5f 6f 72 64 2c 79 5f |geChart(|x_ord,y_|
|00003e80| 6f 72 64 29 20 2d 2d 20 | 79 5f 6f 72 64 20 72 65 |ord) -- |y_ord re|
|00003e90| 74 75 72 6e 65 64 20 62 | 79 20 63 68 61 6e 67 65 |turned b|y change|
|00003ea0| 43 68 61 72 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |Char.end| repeat.|
|00003eb0| 65 6e 64 20 69 66 0d 64 | 6f 43 68 69 6c 64 46 69 |end if.d|oChildFi|
|00003ec0| 65 6c 64 20 63 68 69 6c | 64 0d 65 6e 64 20 69 66 |eld chil|d.end if|
|00003ed0| 0d 0d 63 68 6f 6f 73 65 | 20 6c 69 6e 65 20 74 6f |..choose| line to|
|00003ee0| 6f 6c 0d 69 66 20 6a 20 | 3c 3d 20 31 20 74 68 65 |ol.if j |<= 1 the|
|00003ef0| 6e 0d 64 72 61 67 20 66 | 72 6f 6d 20 78 31 2c 79 |n.drag f|rom x1,y|
|00003f00| 5f 6f 72 64 20 74 6f 20 | 63 78 73 73 2c 79 5f 6f |_ord to |cxss,y_o|
|00003f10| 72 64 20 20 20 20 20 20 | 20 20 20 20 2d 2d 20 6d |rd      |    -- m|
|00003f20| 61 72 6b 20 66 6f 72 20 | 63 68 69 6c 64 0d 65 6e |ark for |child.en|
|00003f30| 64 20 69 66 0d 0d 0d 69 | 66 20 74 68 65 20 69 64 |d if...i|f the id|
|00003f40| 20 6f 66 20 74 68 69 73 | 20 63 61 72 64 20 69 73 | of this| card is|
|00003f50| 20 6f 6c 64 63 61 72 64 | 20 74 68 65 6e 20 20 2d | oldcard| then  -|
|00003f60| 2d 20 6f 6e 20 73 61 6d | 65 20 63 61 72 64 3f 0d |- on sam|e card?.|
|00003f70| 69 66 20 28 64 65 6c 74 | 61 20 3e 20 30 29 20 6f |if (delt|a > 0) o|
|00003f80| 72 20 28 69 20 3d 20 31 | 29 20 74 68 65 6e 0d 64 |r (i = 1|) then.d|
|00003f90| 72 61 67 20 66 72 6f 6d | 20 78 31 2c 6f 6c 64 5f |rag from| x1,old_|
|00003fa0| 79 20 74 6f 20 78 31 2c | 79 5f 6f 72 64 20 20 20 |y to x1,|y_ord   |
|00003fb0| 20 20 2d 2d 20 76 65 72 | 74 69 63 61 6c 20 73 69 |  -- ver|tical si|
|00003fc0| 62 6c 69 6e 67 20 6c 69 | 6e 65 0d 65 6e 64 20 69 |bling li|ne.end i|
|00003fd0| 66 0d 69 66 20 6a 20 3e | 20 31 20 74 68 65 6e 0d |f.if j >| 1 then.|
|00003fe0| 64 72 61 67 20 66 72 6f | 6d 20 63 78 73 73 2c 6f |drag fro|m cxss,o|
|00003ff0| 6c 64 5f 79 20 2b 20 31 | 35 20 74 6f 20 63 78 73 |ld_y + 1|5 to cxs|
|00004000| 73 2c 79 5f 6f 72 64 20 | 20 20 20 20 20 2d 2d 20 |s,y_ord |     -- |
|00004010| 6d 61 72 6b 20 66 6f 72 | 20 6e 65 77 20 73 70 6f |mark for| new spo|
|00004020| 75 73 65 0d 65 6e 64 20 | 69 66 0d 65 6c 73 65 0d |use.end |if.else.|
|00004030| 69 66 20 75 70 74 72 65 | 65 20 74 68 65 6e 0d 64 |if uptre|e then.d|
|00004040| 72 61 67 20 66 72 6f 6d | 20 78 31 2c 62 6f 74 74 |rag from| x1,bott|
|00004050| 6f 6d 20 74 6f 20 78 31 | 2c 79 5f 6f 72 64 20 20 |om to x1|,y_ord  |
|00004060| 20 20 2d 2d 20 76 65 72 | 74 69 63 61 6c 20 73 69 |  -- ver|tical si|
|00004070| 62 6c 69 6e 67 20 6c 69 | 6e 65 0d 67 65 74 20 66 |bling li|ne.get f|
|00004080| 69 65 6c 64 20 22 44 6f | 77 6e 22 0d 67 6f 20 74 |ield "Do|wn".go t|
|00004090| 6f 20 6f 6c 64 63 61 72 | 64 20 20 20 20 20 20 20 |o oldcar|d       |
|000040a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2d |        |       -|
|000040b0| 2d 20 6c 61 73 74 20 73 | 69 62 6c 69 6e 67 27 73 |- last s|ibling's|
|000040c0| 20 63 61 72 64 0d 64 72 | 61 67 20 66 72 6f 6d 20 | card.dr|ag from |
|000040d0| 78 31 2c 6f 6c 64 5f 79 | 20 74 6f 20 78 31 2c 74 |x1,old_y| to x1,t|
|000040e0| 6f 70 20 20 20 20 20 20 | 20 2d 2d 20 76 65 72 74 |op      | -- vert|
|000040f0| 69 63 61 6c 20 73 69 62 | 6c 69 6e 67 20 6c 69 6e |ical sib|ling lin|
|00004100| 65 0d 2d 2d 20 20 20 20 | 20 20 20 20 20 20 20 20 |e.--    |        |
|00004110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004120| 20 20 20 20 20 20 20 20 | 6f 6e 20 6c 61 73 74 20 |        |on last |
|00004130| 73 69 62 6c 69 6e 67 27 | 73 20 63 61 72 64 0d 72 |sibling'|s card.r|
|00004140| 65 70 65 61 74 20 75 6e | 74 69 6c 20 69 74 20 69 |epeat un|til it i|
|00004150| 73 20 74 68 65 20 69 64 | 20 6f 66 20 74 68 69 73 |s the id| of this|
|00004160| 20 63 61 72 64 0d 67 6f | 20 74 6f 20 66 69 65 6c | card.go| to fiel|
|00004170| 64 20 22 55 70 22 0d 64 | 72 61 67 20 66 72 6f 6d |d "Up".d|rag from|
|00004180| 20 78 31 2c 62 6f 74 74 | 6f 6d 20 74 6f 20 78 31 | x1,bott|om to x1|
|00004190| 2c 74 6f 70 0d 65 6e 64 | 20 72 65 70 65 61 74 20 |,top.end| repeat |
|000041a0| 20 2d 2d 20 77 65 27 76 | 65 20 64 72 61 77 6e 20 | -- we'v|e drawn |
|000041b0| 6f 76 65 72 20 61 20 6e | 75 6d 62 65 72 20 6f 66 |over a n|umber of|
|000041c0| 20 63 61 72 64 73 0d 67 | 6f 20 74 6f 20 66 69 65 | cards.g|o to fie|
|000041d0| 6c 64 20 22 55 70 22 0d | 65 6c 73 65 0d 0d 69 66 |ld "Up".|else..if|
|000041e0| 20 20 64 65 6c 74 61 20 | 3e 20 30 20 74 68 65 6e |  delta |> 0 then|
|000041f0| 0d 64 72 61 67 20 66 72 | 6f 6d 20 78 31 2c 74 6f |.drag fr|om x1,to|
|00004200| 70 20 74 6f 20 78 31 2c | 79 5f 6f 72 64 20 20 20 |p to x1,|y_ord   |
|00004210| 20 2d 2d 20 76 65 72 74 | 69 63 61 6c 20 73 69 62 | -- vert|ical sib|
|00004220| 6c 69 6e 67 20 6c 69 6e | 65 0d 65 6e 64 20 69 66 |ling lin|e.end if|
|00004230| 0d 69 66 20 6a 20 3e 20 | 31 20 74 68 65 6e 0d 64 |.if j > |1 then.d|
|00004240| 72 61 67 20 66 72 6f 6d | 20 63 78 73 73 2c 74 6f |rag from| cxss,to|
|00004250| 70 20 74 6f 20 63 78 73 | 73 2c 79 5f 6f 72 64 20 |p to cxs|s,y_ord |
|00004260| 20 20 20 20 20 20 20 20 | 20 2d 2d 20 6d 61 72 6b |        | -- mark|
|00004270| 20 66 6f 72 20 6e 65 77 | 20 73 70 6f 75 73 65 0d | for new| spouse.|
|00004280| 65 6e 64 20 69 66 0d 0d | 67 65 74 20 66 69 65 6c |end if..|get fiel|
|00004290| 64 20 22 55 70 22 0d 67 | 6f 20 74 6f 20 6f 6c 64 |d "Up".g|o to old|
|000042a0| 63 61 72 64 20 20 20 20 | 20 20 20 20 20 20 20 20 |card    |        |
|000042b0| 20 20 20 20 20 20 20 20 | 20 20 2d 2d 20 6c 61 73 |        |  -- las|
|000042c0| 74 20 73 69 62 6c 69 6e | 67 27 73 20 63 61 72 64 |t siblin|g's card|
|000042d0| 0d 69 66 20 20 64 65 6c | 74 61 20 3e 20 30 20 74 |.if  del|ta > 0 t|
|000042e0| 68 65 6e 0d 64 72 61 67 | 20 66 72 6f 6d 20 78 31 |hen.drag| from x1|
|000042f0| 2c 6f 6c 64 5f 79 20 74 | 6f 20 78 31 2c 62 6f 74 |,old_y t|o x1,bot|
|00004300| 74 6f 6d 20 20 20 20 20 | 20 20 2d 2d 20 76 65 72 |tom     |  -- ver|
|00004310| 74 69 63 61 6c 20 73 69 | 62 6c 69 6e 67 20 6c 69 |tical si|bling li|
|00004320| 6e 65 0d 65 6e 64 20 69 | 66 0d 0d 69 66 20 6a 20 |ne.end i|f..if j |
|00004330| 3e 20 31 20 74 68 65 6e | 0d 64 72 61 67 20 66 72 |> 1 then|.drag fr|
|00004340| 6f 6d 20 63 78 73 73 2c | 6f 6c 64 5f 79 20 74 6f |om cxss,|old_y to|
|00004350| 20 63 78 73 73 2c 62 6f | 74 74 6f 6d 20 20 20 20 | cxss,bo|ttom    |
|00004360| 20 20 20 20 20 20 2d 2d | 20 6d 61 72 6b 20 66 6f |      --| mark fo|
|00004370| 72 20 6e 65 77 20 73 70 | 6f 75 73 65 0d 65 6e 64 |r new sp|ouse.end|
|00004380| 20 69 66 0d 72 65 70 65 | 61 74 20 75 6e 74 69 6c | if.repe|at until|
|00004390| 20 69 74 20 69 73 20 74 | 68 65 20 69 64 20 6f 66 | it is t|he id of|
|000043a0| 20 74 68 69 73 20 63 61 | 72 64 0d 67 6f 20 74 6f | this ca|rd.go to|
|000043b0| 20 66 69 65 6c 64 20 22 | 44 6f 77 6e 22 0d 69 66 | field "|Down".if|
|000043c0| 20 64 65 6c 74 61 20 3e | 20 30 20 74 68 65 6e 0d | delta >| 0 then.|
|000043d0| 64 72 61 67 20 66 72 6f | 6d 20 78 31 2c 74 6f 70 |drag fro|m x1,top|
|000043e0| 20 74 6f 20 78 31 2c 62 | 6f 74 74 6f 6d 0d 65 6e | to x1,b|ottom.en|
|000043f0| 64 20 69 66 0d 69 66 20 | 6a 20 3e 20 31 20 74 68 |d if.if |j > 1 th|
|00004400| 65 6e 0d 64 72 61 67 20 | 66 72 6f 6d 20 63 78 73 |en.drag |from cxs|
|00004410| 73 2c 74 6f 70 20 74 6f | 20 63 78 73 73 2c 62 6f |s,top to| cxss,bo|
|00004420| 74 74 6f 6d 20 20 20 20 | 20 20 20 20 20 20 2d 2d |ttom    |      --|
|00004430| 20 6d 61 72 6b 20 66 6f | 72 20 6e 65 77 20 73 70 | mark fo|r new sp|
|00004440| 6f 75 73 65 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |ouse.end| if.end |
|00004450| 72 65 70 65 61 74 20 20 | 2d 2d 20 77 65 27 76 65 |repeat  |-- we've|
|00004460| 20 64 72 61 77 6e 20 6f | 76 65 72 20 61 20 6e 75 | drawn o|ver a nu|
|00004470| 6d 62 65 72 20 6f 66 20 | 63 61 72 64 73 0d 67 6f |mber of |cards.go|
|00004480| 20 74 6f 20 66 69 65 6c | 64 20 22 44 6f 77 6e 22 | to fiel|d "Down"|
|00004490| 0d 0d 65 6e 64 20 69 66 | 20 20 2d 2d 20 69 66 20 |..end if|  -- if |
|000044a0| 75 70 74 72 65 65 0d 65 | 6e 64 20 69 66 20 2d 2d |uptree.e|nd if --|
|000044b0| 20 69 66 20 6f 6e 20 73 | 61 6d 65 20 63 61 72 64 | if on s|ame card|
|000044c0| 0d 0d 70 75 74 20 79 5f | 6f 72 64 20 69 6e 74 6f |..put y_|ord into|
|000044d0| 20 6f 6c 64 5f 79 0d 70 | 75 74 20 74 68 65 20 69 | old_y.p|ut the i|
|000044e0| 64 20 6f 66 20 74 68 69 | 73 20 63 61 72 64 20 69 |d of thi|s card i|
|000044f0| 6e 74 6f 20 6f 6c 64 63 | 61 72 64 0d 67 6f 20 74 |nto oldc|ard.go t|
|00004500| 6f 20 73 69 62 63 61 72 | 64 20 20 20 20 20 20 20 |o sibcar|d       |
|00004510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2d |        |       -|
|00004530| 2d 20 62 61 63 6b 20 74 | 6f 20 63 68 61 72 74 20 |- back t|o chart |
|00004540| 6f 66 20 73 69 62 6c 69 | 6e 67 73 0d 65 6e 64 20 |of sibli|ngs.end |
|00004550| 72 65 70 65 61 74 20 2d | 2d 20 66 6f 72 20 6d 6f |repeat -|- for mo|
|00004560| 72 65 20 74 68 61 6e 20 | 31 20 66 61 6d 69 6c 79 |re than |1 family|
|00004570| 20 66 6f 72 20 63 68 69 | 6c 64 0d 0d 65 6e 64 20 | for chi|ld..end |
|00004580| 64 6f 53 69 62 6c 69 6e | 67 73 0d 0d 0d 6f 6e 20 |doSiblin|gs...on |
|00004590| 64 6f 43 68 69 6c 64 46 | 69 65 6c 64 20 63 68 69 |doChildF|ield chi|
|000045a0| 6c 64 0d 0d 67 6c 6f 62 | 61 6c 20 78 5f 6f 72 64 |ld..glob|al x_ord|
|000045b0| 2c 20 79 5f 6f 72 64 0d | 0d 63 68 6f 6f 73 65 20 |, y_ord.|.choose |
|000045c0| 62 72 6f 77 73 65 20 74 | 6f 6f 6c 0d 2d 2d 20 73 |browse t|ool.-- s|
|000045d0| 65 74 20 4c 6f 63 6b 73 | 63 72 65 65 6e 20 74 6f |et Locks|creen to|
|000045e0| 20 74 72 75 65 0d 64 6f | 4d 65 6e 75 20 22 4e 65 | true.do|Menu "Ne|
|000045f0| 77 20 46 69 65 6c 64 22 | 0d 67 65 74 20 74 68 65 |w Field"|.get the|
|00004600| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 61 73 74 20 | number |of last |
|00004610| 63 61 72 64 20 66 69 65 | 6c 64 0d 73 65 74 20 54 |card fie|ld.set T|
|00004620| 65 78 74 66 6f 6e 74 20 | 6f 66 20 63 61 72 64 20 |extfont |of card |
|00004630| 66 69 65 6c 64 20 69 74 | 20 74 6f 20 22 54 69 6d |field it| to "Tim|
|00004640| 65 73 22 0d 73 65 74 20 | 54 65 78 74 73 69 7a 65 |es".set |Textsize|
|00004650| 20 6f 66 20 63 61 72 64 | 20 66 69 65 6c 64 20 69 | of card| field i|
|00004660| 74 20 74 6f 20 39 0d 73 | 65 74 20 73 74 79 6c 65 |t to 9.s|et style|
|00004670| 20 6f 66 20 63 61 72 64 | 20 66 69 65 6c 64 20 69 | of card| field i|
|00004680| 74 20 74 6f 20 74 72 61 | 6e 73 70 61 72 65 6e 74 |t to tra|nsparent|
|00004690| 0d 73 65 74 20 72 65 63 | 74 20 6f 66 20 63 61 72 |.set rec|t of car|
|000046a0| 64 20 66 69 65 6c 64 20 | 69 74 20 74 6f c2 0d 78 |d field |it to..x|
|000046b0| 5f 6f 72 64 2c 28 79 5f | 6f 72 64 2d 37 29 2c 28 |_ord,(y_|ord-7),(|
|000046c0| 78 5f 6f 72 64 20 2b 20 | 37 30 29 2c 28 79 5f 6f |x_ord + |70),(y_o|
|000046d0| 72 64 2b 37 29 0d 70 75 | 74 20 63 68 69 6c 64 20 |rd+7).pu|t child |
|000046e0| 69 6e 74 6f 20 63 61 72 | 64 20 66 69 65 6c 64 20 |into car|d field |
|000046f0| 69 74 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |it      |        |
|00004700| 20 20 2d 2d 20 63 68 69 | 6c 64 0d 63 68 6f 6f 73 |  -- chi|ld.choos|
|00004710| 65 20 62 72 6f 77 73 65 | 20 74 6f 6f 6c 0d 2d 2d |e browse| tool.--|
|00004720| 20 73 65 74 20 4c 6f 63 | 6b 73 63 72 65 65 6e 20 | set Loc|kscreen |
|00004730| 74 6f 20 66 61 6c 73 65 | 0d 0d 65 6e 64 20 64 6f |to false|..end do|
|00004740| 43 68 69 6c 64 46 69 65 | 6c 64 0d 0d 0d 6f 6e 20 |ChildFie|ld...on |
|00004750| 64 6f 43 68 69 6c 64 53 | 70 46 69 65 6c 64 73 20 |doChildS|pFields |
|00004760| 63 68 69 6c 64 2c 20 63 | 68 69 6c 64 73 70 2c 20 |child, c|hildsp, |
|00004770| 62 75 74 74 6f 6e 74 68 | 65 72 65 2c 20 63 68 69 |buttonth|ere, chi|
|00004780| 6c 64 74 68 65 72 65 2c | 20 6a 0d 0d 67 6c 6f 62 |ldthere,| j..glob|
|00004790| 61 6c 20 78 5f 6f 72 64 | 2c 20 79 5f 6f 72 64 2c |al x_ord|, y_ord,|
|000047a0| 20 6c 65 6e 67 74 68 0d | 0d 63 68 6f 6f 73 65 20 | length.|.choose |
|000047b0| 62 72 6f 77 73 65 20 74 | 6f 6f 6c 0d 69 66 20 62 |browse t|ool.if b|
|000047c0| 75 74 74 6f 6e 74 68 65 | 72 65 20 74 68 65 6e 0d |uttonthe|re then.|
|000047d0| 70 75 74 20 74 68 65 20 | 73 68 6f 72 74 20 6e 61 |put the |short na|
|000047e0| 6d 65 20 6f 66 20 6c 61 | 73 74 20 62 75 74 74 6f |me of la|st butto|
|000047f0| 6e 20 69 6e 74 6f 20 66 | 69 65 6c 64 5f 6e 61 6d |n into f|ield_nam|
|00004800| 65 0d 65 6e 64 20 69 66 | 0d 2d 2d 20 73 65 74 20 |e.end if|.-- set |
|00004810| 4c 6f 63 6b 73 63 72 65 | 65 6e 20 74 6f 20 74 72 |Lockscre|en to tr|
|00004820| 75 65 0d 64 6f 4d 65 6e | 75 20 22 4e 65 77 20 46 |ue.doMen|u "New F|
|00004830| 69 65 6c 64 22 0d 67 65 | 74 20 74 68 65 20 6e 75 |ield".ge|t the nu|
|00004840| 6d 62 65 72 20 6f 66 20 | 6c 61 73 74 20 63 61 72 |mber of |last car|
|00004850| 64 20 66 69 65 6c 64 0d | 73 65 74 20 54 65 78 74 |d field.|set Text|
|00004860| 66 6f 6e 74 20 6f 66 20 | 63 61 72 64 20 66 69 65 |font of |card fie|
|00004870| 6c 64 20 69 74 20 74 6f | 20 22 54 69 6d 65 73 22 |ld it to| "Times"|
|00004880| 0d 73 65 74 20 54 65 78 | 74 73 69 7a 65 20 6f 66 |.set Tex|tsize of|
|00004890| 20 63 61 72 64 20 66 69 | 65 6c 64 20 69 74 20 74 | card fi|eld it t|
|000048a0| 6f 20 39 0d 69 66 20 62 | 75 74 74 6f 6e 74 68 65 |o 9.if b|uttonthe|
|000048b0| 72 65 20 74 68 65 6e 0d | 73 65 74 20 6e 61 6d 65 |re then.|set name|
|000048c0| 20 6f 66 20 63 61 72 64 | 20 66 69 65 6c 64 20 69 | of card| field i|
|000048d0| 74 20 74 6f 20 66 69 65 | 6c 64 5f 6e 61 6d 65 26 |t to fie|ld_name&|
|000048e0| 26 31 0d 65 6e 64 20 69 | 66 0d 73 65 74 20 73 74 |&1.end i|f.set st|
|000048f0| 79 6c 65 20 6f 66 20 63 | 61 72 64 20 66 69 65 6c |yle of c|ard fiel|
|00004900| 64 20 69 74 20 74 6f 20 | 74 72 61 6e 73 70 61 72 |d it to |transpar|
|00004910| 65 6e 74 0d 73 65 74 20 | 72 65 63 74 20 6f 66 20 |ent.set |rect of |
|00004920| 63 61 72 64 20 66 69 65 | 6c 64 20 69 74 20 74 6f |card fie|ld it to|
|00004930| c2 0d 78 5f 6f 72 64 2c | 28 79 5f 6f 72 64 2d 31 |..x_ord,|(y_ord-1|
|00004940| 32 29 2c 28 78 5f 6f 72 | 64 20 2b 20 6c 65 6e 67 |2),(x_or|d + leng|
|00004950| 74 68 29 2c 28 79 5f 6f | 72 64 2b 32 29 0d 69 66 |th),(y_o|rd+2).if|
|00004960| 20 63 68 69 6c 64 74 68 | 65 72 65 20 74 68 65 6e | childth|ere then|
|00004970| 0d 70 75 74 20 63 68 69 | 6c 64 20 69 6e 74 6f 20 |.put chi|ld into |
|00004980| 63 61 72 64 20 66 69 65 | 6c 64 20 69 74 20 20 20 |card fie|ld it   |
|00004990| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2d 2d 20 |        |     -- |
|000049a0| 63 68 69 6c 64 0d 65 6c | 73 65 0d 70 75 74 20 6a |child.el|se.put j|
|000049b0| 20 69 6e 74 6f 20 63 61 | 72 64 20 66 69 65 6c 64 | into ca|rd field|
|000049c0| 20 69 74 0d 65 6e 64 20 | 69 66 0d 64 6f 4d 65 6e | it.end |if.doMen|
|000049d0| 75 20 22 4e 65 77 20 46 | 69 65 6c 64 22 0d 67 65 |u "New F|ield".ge|
|000049e0| 74 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |t the nu|mber of |
|000049f0| 6c 61 73 74 20 63 61 72 | 64 20 66 69 65 6c 64 0d |last car|d field.|
|00004a00| 73 65 74 20 54 65 78 74 | 66 6f 6e 74 20 6f 66 20 |set Text|font of |
|00004a10| 63 61 72 64 20 66 69 65 | 6c 64 20 69 74 20 74 6f |card fie|ld it to|
|00004a20| 20 22 54 69 6d 65 73 22 | 0d 73 65 74 20 54 65 78 | "Times"|.set Tex|
|00004a30| 74 73 69 7a 65 20 6f 66 | 20 63 61 72 64 20 66 69 |tsize of| card fi|
|00004a40| 65 6c 64 20 69 74 20 74 | 6f 20 39 0d 69 66 20 62 |eld it t|o 9.if b|
|00004a50| 75 74 74 6f 6e 74 68 65 | 72 65 20 74 68 65 6e 0d |uttonthe|re then.|
|00004a60| 73 65 74 20 6e 61 6d 65 | 20 6f 66 20 63 61 72 64 |set name| of card|
|00004a70| 20 66 69 65 6c 64 20 69 | 74 20 74 6f 20 66 69 65 | field i|t to fie|
|00004a80| 6c 64 5f 6e 61 6d 65 26 | 26 32 0d 65 6e 64 20 69 |ld_name&|&2.end i|
|00004a90| 66 0d 73 65 74 20 73 74 | 79 6c 65 20 6f 66 20 63 |f.set st|yle of c|
|00004aa0| 61 72 64 20 66 69 65 6c | 64 20 69 74 20 74 6f 20 |ard fiel|d it to |
|00004ab0| 74 72 61 6e 73 70 61 72 | 65 6e 74 0d 73 65 74 20 |transpar|ent.set |
|00004ac0| 72 65 63 74 20 6f 66 20 | 63 61 72 64 20 66 69 65 |rect of |card fie|
|00004ad0| 6c 64 20 69 74 20 74 6f | c2 0d 78 5f 6f 72 64 2c |ld it to|..x_ord,|
|00004ae0| 28 79 5f 6f 72 64 2b 31 | 29 2c 28 78 5f 6f 72 64 |(y_ord+1|),(x_ord|
|00004af0| 20 2b 20 6c 65 6e 67 74 | 68 29 2c 28 79 5f 6f 72 | + lengt|h),(y_or|
|00004b00| 64 2b 31 34 29 0d 70 75 | 74 20 63 68 69 6c 64 73 |d+14).pu|t childs|
|00004b10| 70 20 69 6e 74 6f 20 63 | 61 72 64 20 66 69 65 6c |p into c|ard fiel|
|00004b20| 64 20 69 74 20 20 20 20 | 20 20 20 20 20 20 20 20 |d it    |        |
|00004b30| 20 2d 2d 20 63 68 69 6c | 64 27 73 20 73 70 6f 75 | -- chil|d's spou|
|00004b40| 73 65 0d 63 68 6f 6f 73 | 65 20 62 72 6f 77 73 65 |se.choos|e browse|
|00004b50| 20 74 6f 6f 6c 0d 2d 2d | 20 73 65 74 20 4c 6f 63 | tool.--| set Loc|
|00004b60| 6b 73 63 72 65 65 6e 20 | 74 6f 20 66 61 6c 73 65 |kscreen |to false|
|00004b70| 0d 0d 65 6e 64 20 64 6f | 43 68 69 6c 64 53 70 46 |..end do|ChildSpF|
|00004b80| 69 65 6c 64 73 0d 00 00 | 00 00 00 00 00 00 00 00 |ields...|........|
|00004b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004c80| 00 00 08 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00004c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ca0| 00 06 a7 a6 00 08 9d 0b | 00 09 07 1f 00 06 8e 5e |........|.......^|
|00004cb0| 00 08 91 35 00 00 00 00 | 00 07 c1 16 00 00 00 00 |...5....|........|
|00004cc0| 00 08 97 df 00 08 a4 b9 | 00 08 b5 e9 00 08 e7 9e |........|........|
|00004cd0| 00 08 83 ad 00 08 ae 35 | 00 08 b2 4e 00 02 a0 0c |.......5|...N....|
|00004ce0| 00 02 a4 ea 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d50| 00 05 dc a0 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 07 10 0b |........|........|
|00004d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004d80| 00 00 00 00 00 08 1b e5 | 00 00 00 00 00 06 1f e2 |........|........|
|00004d90| 00 00 00 00 00 00 00 00 | 00 06 65 bd 00 00 00 00 |........|..e.....|
|00004da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 07 fb 83 |........|........|
|00004dc0| 00 08 0e d6 00 08 31 90 | 00 02 e4 42 00 08 3f 3c |......1.|...B..?<|
|00004dd0| 00 07 2f 71 00 06 aa 55 | 00 05 c1 b2 00 08 4e c8 |../q...U|......N.|
|00004de0| 00 08 63 63 00 00 00 00 | 00 06 04 3d 00 00 00 00 |..cc....|...=....|
|00004df0| 00 07 42 d9 00 06 cc 5d | 00 06 ed 74 00 00 00 00 |..B....]|...t....|
|00004e00| 00 07 b4 8a 00 07 64 8d | 00 00 00 00 00 09 02 80 |......d.|........|
|00004e10| 00 00 00 00 00 00 00 00 | 00 08 ab b8 00 00 00 00 |........|........|
|00004e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 f8 76 |........|.......v|
|00004ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f10| 00 00 00 00 00 00 00 00 | 00 07 e1 2f 00 00 00 00 |........|.../....|
|00004f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fc0| 00 00 00 00 00 07 f2 d5 | 00 00 00 00 00 00 00 00 |........|........|
|00004fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 25 87 |........|......%.|
|00005060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050c0| 00 00 00 00 00 08 f5 9a | 00 00 00 00 00 00 00 00 |........|........|
|000050d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000050e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 f6 96 |........|........|
|000050f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000051f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000052f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000053f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005480| 00 00 00 80 4c 49 53 54 | 00 00 17 0c 00 00 00 00 |....LIST|........|
|00005490| 00 00 00 01 00 00 08 00 | 00 00 00 1d 00 28 00 02 |........|.....(..|
|000054a0| 00 09 00 03 40 00 03 3a | 00 00 00 1d 00 00 00 00 |....@..:|........|
|000054b0| 00 00 18 ea 00 1d 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000054f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005500| 00 00 08 00 50 41 47 45 | 00 00 18 ea 00 00 00 00 |....PAGE|........|
|00005510| 00 00 17 0c 3e f2 1e fc | 00 00 0a 1f 60 21 90 e3 |....>...|....`!..|
|00005520| c3 04 ca ca 21 c6 b8 1f | 32 e0 a6 51 06 59 16 40 |....!...|2..Q.Y.@|
|00005530| 1d d3 84 02 b5 0d 03 80 | 1a 51 92 4a 52 40 00 90 |........|.Q.JR@..|
|00005540| 00 00 08 a6 a0 01 00 00 | 00 00 00 02 00 80 00 00 |........|........|
|00005550| 00 00 80 40 01 02 10 00 | 08 00 00 00 00 00 00 10 |...@....|........|
|00005560| 00 88 00 40 10 00 00 00 | 00 00 55 55 a0 79 e8 da |...@....|..UU.y..|
|00005570| af 3b 71 ff b4 fb b2 59 | b6 fd b3 fc f3 7f 9f cb |.;q....Y|........|
|00005580| af df ff f9 dd 2b f7 7c | 2b cf de 5d fe 7a 17 e0 |.....+.||+..].z..|
|00005590| 00 00 5d 5d a0 78 9b ff | 87 d1 ff ff df df 9f 7e |..]].x..|.......~|
|000055a0| f4 3d af 15 7f 4c da c3 | e6 eb 53 a1 f6 c6 e4 dc |.=...L..|..S.....|
|000055b0| 0d 2b 7b ab ea f9 f1 8c | 00 00 5e 74 a0 79 ba 33 |.+{.....|..^t.y.3|
|000055c0| fd 51 ef cf 1f 17 99 fe | f7 5f eb 87 b7 da 8f 83 |.Q......|._......|
|000055d0| f7 f6 c6 e0 bf f4 f7 75 | 0d ed 59 cf ba f7 db 88 |.......u|..Y.....|
|000055e0| 00 00 3b 0b a0 7e b8 92 | 9b b7 fe ed b5 1f 9b fc |..;..~..|........|
|000055f0| f6 bb eb cc b7 93 9f c3 | a7 ea c4 73 97 6d f3 ef |........|...s.m..|
|00005600| d9 fb ba ef ab d1 f7 e4 | 00 00 54 71 a0 19 90 d2 |........|..Tq....|
|00005610| df 35 5a ff 95 86 81 4c | f6 56 ca 44 b7 9a 91 42 |.5Z....L|.V.D...B|
|00005620| 2d 93 bc b6 17 06 a1 1d | 19 e9 ba 6a fe 98 03 a0 |-.......|...j....|
|00005630| 00 00 5c d9 a0 20 12 42 | 89 24 40 a1 10 40 90 08 |..\.. .B|.$@..@..|
|00005640| 35 80 00 08 21 23 00 80 | 07 00 c4 21 05 22 80 80 |5...!#..|...!."..|
|00005650| 00 aa 10 00 80 18 00 80 | 00 00 61 8d a0 21 a2 06 |........|..a..!..|
|00005660| 95 30 11 a3 04 8d 1b 50 | 76 93 e3 40 10 01 d6 a2 |.0.....P|v..@....|
|00005670| 0e c0 64 b4 85 02 02 22 | 08 21 94 49 92 e4 49 c0 |..d...."|.!.I..I.|
|00005680| 00 00 60 8a a0 2b 6c 5a | a9 7c 29 a3 02 d0 98 5c |..`..+lZ|.|)....\|
|00005690| b7 23 13 a1 20 1b 36 d5 | 45 c0 be 54 1d a7 18 80 |.#.. .6.|E..T....|
|000056a0| 4c 53 d4 71 1b b8 93 d0 | 00 00 0e 16 20 7f ef fd |LS.q....|.... ...|
|000056b0| bf f3 33 f8 f5 5f ff 7b | ff ff f5 bf e3 ff f6 db |..3.._.{|........|
|000056c0| 7f c6 de fd ff f7 fb f7 | 57 8e c4 97 e7 da 97 8c |........|W.......|
|000056d0| 00 00 a6 2f 20 79 a0 b4 | 88 20 89 ab 1c 9e b4 5b |.../ y..|. .....[|
|000056e0| b4 63 86 fc 21 6b f1 41 | 0e 86 a6 9c ac 46 53 f6 |.c..!k.A|.....FS.|
|000056f0| 0b 88 c2 5b b3 56 03 a4 | 00 00 d1 d5 20 7c 80 0c |...[.V..|.... |..|
|00005700| 80 80 20 b8 96 02 0a 40 | 34 05 84 24 22 c8 a1 d8 |.. ....@|4..$"...|
|00005710| 04 02 30 12 06 44 01 44 | 03 86 80 82 28 10 23 80 |..0..D.D|....(.#.|
|00005720| 00 00 4f 83 a0 39 0a 51 | 90 10 80 9d e1 10 94 88 |..O..9.Q|........|
|00005730| 54 04 81 1f 2d 89 00 a0 | e4 22 24 20 2f 8a c0 50 |T...-...|."$ /..P|
|00005740| 08 8b 00 16 3e 80 71 40 | 00 00 50 d6 20 38 08 11 |....>.q@|..P. 8..|
|00005750| 93 10 01 4c 45 30 94 80 | 50 14 a0 07 2d 12 80 22 |...LE0..|P...-.."|
|00005760| e0 b3 00 24 2a 88 80 50 | 08 c9 10 13 2e a4 41 00 |...$*..P|......A.|
|00005770| 00 00 41 e5 20 1d 14 17 | 90 11 03 83 25 80 98 61 |..A. ...|....%..a|
|00005780| 5d 58 ac 47 75 87 92 80 | 4e 82 41 34 2e 0a 88 02 |]X.Gu...|N.A4....|
|00005790| 04 8c 04 49 b2 60 49 20 | 00 00 f7 87 20 18 04 55 |...I.`I |.... ..U|
|000057a0| 98 10 03 01 05 40 98 40 | 54 f0 ad 17 34 01 80 02 |.....@.@|T...4...|
|000057b0| 45 83 01 34 2e 0a 80 00 | 05 00 60 01 22 20 49 00 |E..4....|..`." I.|
|000057c0| 00 00 51 90 20 3c 0a 41 | 92 81 01 ac e0 30 96 98 |..Q. <.A|.....0..|
|000057d0| 45 00 c0 0f 29 43 01 80 | a6 23 44 a3 4f 8c 00 56 |E...)C..|.#D.O..V|
|000057e0| 48 d9 00 04 e8 8e 81 10 | 00 00 53 3c 20 10 00 55 |H.......|..S< ..U|
|000057f0| 91 00 11 80 05 45 99 40 | 44 a4 a5 17 24 40 01 82 |.....E.@|D...$@..|
|00005800| 06 03 50 30 3e 08 00 00 | 01 00 70 00 aa 28 10 00 |..P0>...|..p..(..|
|00005810| 00 00 57 c8 20 38 96 34 | f8 50 85 fa 7d 76 88 58 |..W. 8.4|.P..}v.X|
|00005820| be 77 ed 3d f5 f7 ba db | f4 ef 05 f1 f5 6d e7 0d |.w.=....|.....m..|
|00005830| 0d da 66 2d 6b f3 fb 08 | 00 00 58 63 20 3c 7e d3 |..f-k...|..Xc <~.|
|00005840| f9 51 a4 be e9 3b 9f 4c | dc 2d fe 2f 7d 62 39 d3 |.Q...;.L|.-./}b9.|
|00005850| c7 e2 c3 f3 fe ed a3 d4 | 8b ba a6 28 eb d7 f9 fc |........|...(....|
|00005860| 00 00 14 ad 60 0a a3 0f | 94 00 11 03 35 1e 17 e0 |....`...|....5...|
|00005870| ec d2 2b 68 04 91 5b 76 | 86 2b 4e 24 5c 83 aa 50 |..+h..[v|.+N$\..P|
|00005880| f8 0f 80 11 49 a8 df 08 | 00 00 0c 35 20 02 02 00 |....I...|...5 ...|
|00005890| 90 00 00 00 04 80 02 02 | 04 40 00 20 01 00 00 00 |........|.@. ....|
|000058a0| 04 21 04 08 14 81 80 00 | 00 00 09 00 08 80 40 00 |.!......|......@.|
|000058b0| 00 00 10 df 20 02 42 02 | 80 00 00 00 01 80 02 22 |.... .B.|......."|
|000058c0| 24 60 00 20 01 00 00 00 | 04 21 06 08 04 01 80 00 |$`. ....|.!......|
|000058d0| 00 00 00 00 08 00 40 00 | 00 00 09 0b 20 02 00 14 |......@.|.... ...|
|000058e0| 90 00 11 01 00 80 42 02 | c4 40 20 20 01 00 40 80 |......B.|.@  ..@.|
|000058f0| 04 20 04 28 05 80 82 00 | 00 00 00 91 00 22 08 80 |. .(....|....."..|
|00005900| 00 00 11 b9 20 02 01 14 | 80 00 10 00 00 48 40 00 |.... ...|.....H@.|
|00005910| 84 40 20 00 01 00 49 80 | 04 20 04 00 04 00 80 10 |.@ ...I.|. ......|
|00005920| 00 88 00 01 00 02 08 00 | 00 00 66 b8 e0 00 00 04 |........|..f.....|
|00005930| 00 00 00 00 04 00 00 40 | 00 00 04 00 00 00 00 00 |.......@|........|
|00005940| 00 00 00 10 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005950| 00 00 15 35 20 00 00 00 | 80 00 00 00 00 00 00 00 |...5 ...|........|
|00005960| 04 40 00 00 00 00 00 00 | 04 20 04 00 04 00 80 00 |.@......|. ......|
|00005970| 00 00 00 00 00 00 00 00 | 00 00 12 e9 a0 22 82 14 |........|....."..|
|00005980| 90 00 10 01 14 07 42 a0 | 64 00 0a 00 14 00 41 84 |......B.|d.....A.|
|00005990| 04 21 52 80 44 81 02 00 | 10 01 00 11 49 2a d0 00 |.!R.D...|....I*..|
|000059a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000059f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005d00| 00 00 5b a0 42 4b 47 44 | 00 00 52 42 00 00 00 00 |..[.BKGD|..RB....|
|00005d10| 00 00 56 b2 40 00 00 00 | 00 00 00 05 00 00 34 a0 |..V.@...|......4.|
|00005d20| 00 00 43 e2 00 46 00 46 | 00 00 0f 10 00 00 00 00 |..C..F.F|........|
|00005d30| 00 00 00 2a 00 01 02 01 | 00 21 00 9a 00 33 01 5f |...*....|.!...3._|
|00005d40| 00 02 00 00 00 00 00 01 | 00 03 00 0c 01 00 00 10 |........|........|
|00005d50| 6c 61 73 74 6e 61 6d 65 | 00 00 00 00 00 2e 00 02 |lastname|........|
|00005d60| 02 81 00 5e 00 f2 01 16 | 01 ed 00 07 00 00 00 00 |...^....|........|
|00005d70| 00 00 00 03 00 0a 00 00 | 00 0d 6c 61 73 74 6e 61 |........|..lastna|
|00005d80| 6d 65 20 69 6e 66 6f 00 | 00 00 00 28 00 03 02 01 |me info.|...(....|
|00005d90| 00 3c 00 32 00 4e 00 f6 | 00 02 00 00 00 00 00 01 |.<.2.N..|........|
|00005da0| 00 03 00 0c 01 00 00 10 | 68 75 73 62 61 6e 64 00 |........|husband.|
|00005db0| 00 00 00 2e 00 04 02 81 | 00 5e 00 f2 01 16 01 ed |........|.^......|
|00005dc0| 00 07 00 00 00 00 00 00 | 00 03 00 0a 00 00 00 0d |........|........|
|00005dd0| 68 75 73 62 61 6e 64 20 | 69 6e 66 6f 00 00 00 00 |husband |info....|
|00005de0| 00 26 00 05 02 01 00 3c | 00 ff 00 4e 01 c4 00 02 |.&.....<|...N....|
|00005df0| 00 00 00 00 00 01 00 03 | 00 0c 01 00 00 10 77 69 |........|......wi|
|00005e00| 66 65 00 00 00 00 00 2a | 00 06 02 81 00 5e 00 f2 |fe.....*|.....^..|
|00005e10| 01 16 01 ed 00 07 00 00 | 00 00 00 00 00 03 00 0a |........|........|
|00005e20| 00 00 00 0d 77 69 66 65 | 20 69 6e 66 6f 00 00 00 |....wife| info...|
|00005e30| 00 22 00 07 02 81 00 5d | 00 0a 00 6c 00 78 00 02 |.".....]|...l.x..|
|00005e40| 00 00 00 00 00 01 00 03 | 00 0a 00 00 00 0d 00 00 |........|........|
|00005e50| 00 00 00 22 00 08 02 81 | 00 5e 00 f2 01 16 01 ed |..."....|.^......|
|00005e60| 00 07 00 00 00 00 00 00 | 00 03 00 0a 00 00 00 0d |........|........|
|00005e70| 00 00 00 00 00 22 00 09 | 02 81 00 70 00 0a 00 7f |....."..|...p....|
|00005e80| 00 78 00 02 00 00 00 00 | 00 01 00 03 00 0a 00 00 |.x......|........|
|00005e90| 00 0d 00 00 00 00 00 22 | 00 0a 02 81 00 5e 00 f2 |......."|.....^..|
|00005ea0| 01 16 01 ed 00 07 00 00 | 00 00 00 00 00 03 00 0a |........|........|
|00005eb0| 00 00 00 0d 00 00 00 00 | 00 22 00 0b 02 81 00 82 |........|."......|
|00005ec0| 00 0a 00 91 00 78 00 02 | 00 00 00 00 00 01 00 03 |.....x..|........|
|00005ed0| 00 0a 00 00 00 0d 00 00 | 00 00 00 22 00 0c 02 81 |........|..."....|
|00005ee0| 00 5e 00 f2 01 16 01 ed | 00 07 00 00 00 00 00 00 |.^......|........|
|00005ef0| 00 03 00 0a 00 00 00 0d | 00 00 00 00 00 22 00 0d |........|....."..|
|00005f00| 02 81 00 94 00 0a 00 a3 | 00 78 00 02 00 00 00 00 |........|.x......|
|00005f10| 00 01 00 03 00 0a 00 00 | 00 0d 00 00 00 00 00 22 |........|......."|
|00005f20| 00 0e 02 81 00 5e 00 f2 | 01 16 01 ed 00 07 00 00 |.....^..|........|
|00005f30| 00 00 00 00 00 03 00 0a | 00 00 00 0d 00 00 00 00 |........|........|
|00005f40| 00 22 00 0f 02 81 00 a6 | 00 0a 00 b5 00 78 00 02 |."......|.....x..|
|00005f50| 00 00 00 00 00 01 00 03 | 00 0a 00 00 00 0d 00 00 |........|........|
|00005f60| 00 00 00 22 00 10 02 81 | 00 5e 00 f2 01 16 01 ed |..."....|.^......|
|00005f70| 00 07 00 00 00 00 00 00 | 00 03 00 0a 00 00 00 0d |........|........|
|00005f80| 00 00 00 00 00 22 00 11 | 02 81 00 b8 00 0a 00 c7 |....."..|........|
|00005f90| 00 78 00 02 00 00 00 00 | 00 01 00 03 00 0a 00 00 |.x......|........|
|00005fa0| 00 0d 00 00 00 00 00 22 | 00 12 02 81 00 5e 00 f2 |......."|.....^..|
|00005fb0| 01 16 01 ed 00 07 00 00 | 00 00 00 00 00 03 00 0a |........|........|
|00005fc0| 00 00 00 0d 00 00 00 00 | 00 22 00 13 02 81 00 ca |........|."......|
|00005fd0| 00 0a 00 d9 00 78 00 02 | 00 00 00 00 00 01 00 03 |.....x..|........|
|00005fe0| 00 0a 00 00 00 0d 00 00 | 00 00 00 22 00 14 02 81 |........|..."....|
|00005ff0| 00 5e 00 f2 01 16 01 ed | 00 07 00 00 00 00 00 00 |.^......|........|
|00006000| 00 03 00 0a 00 00 00 0d | 00 00 00 00 00 22 00 15 |........|....."..|
|00006010| 02 81 00 dc 00 0a 00 eb | 00 78 00 02 00 00 00 00 |........|.x......|
|00006020| 00 01 00 03 00 0a 00 00 | 00 0d 00 00 00 00 00 22 |........|......."|
|00006030| 00 16 02 81 00 5e 00 f2 | 01 16 01 ed 00 07 00 00 |.....^..|........|
|00006040| 00 00 00 00 00 03 00 0a | 00 00 00 0d 00 00 00 00 |........|........|
|00006050| 00 22 00 17 02 81 00 ee | 00 0a 00 fd 00 78 00 02 |."......|.....x..|
|00006060| 00 00 00 00 00 01 00 03 | 00 0a 00 00 00 0d 00 00 |........|........|
|00006070| 00 00 00 22 00 18 02 81 | 00 5e 00 f2 01 16 01 ed |..."....|.^......|
|00006080| 00 07 00 00 00 00 00 00 | 00 03 00 0a 00 00 00 0d |........|........|
|00006090| 00 00 00 00 00 22 00 19 | 02 81 01 00 00 0a 01 0f |....."..|........|
|000060a0| 00 78 00 02 00 00 00 00 | 00 01 00 03 00 0a 00 00 |.x......|........|
|000060b0| 00 0d 00 00 00 00 00 22 | 00 1a 02 81 00 5e 00 f2 |......."|.....^..|
|000060c0| 01 16 01 ed 00 07 00 00 | 00 00 00 00 00 03 00 0a |........|........|
|000060d0| 00 00 00 0d 00 00 00 00 | 00 22 00 1b 02 81 00 5e |........|.".....^|
|000060e0| 00 7d 00 6d 00 eb 00 02 | 00 00 00 00 00 01 00 03 |.}.m....|........|
|000060f0| 00 0a 00 00 00 0d 00 00 | 00 00 00 22 00 1c 02 81 |........|..."....|
|00006100| 00 5e 00 f2 01 16 01 ed | 00 07 00 00 00 00 00 00 |.^......|........|
|00006110| 00 03 00 0a 00 00 00 0d | 00 00 00 00 00 22 00 1d |........|....."..|
|00006120| 02 81 00 70 00 7d 00 7f | 00 eb 00 02 00 00 00 00 |...p.}..|........|
|00006130| 00 01 00 03 00 0a 00 00 | 00 0d 00 00 00 00 00 22 |........|......."|
|00006140| 00 1e 02 81 00 5e 00 f2 | 01 16 01 ed 00 02 00 00 |.....^..|........|
|00006150| 00 00 00 00 00 03 00 0a | 00 00 00 0d 00 00 00 00 |........|........|
|00006160| 00 22 00 1f 02 81 00 82 | 00 7d 00 91 00 eb 00 02 |."......|.}......|
|00006170| 00 00 00 00 00 01 00 03 | 00 0a 00 00 00 0d 00 00 |........|........|
|00006180| 00 00 00 22 00 20 02 81 | 00 5e 00 f2 01 16 01 ed |...". ..|.^......|
|00006190| 00 02 00 00 00 00 00 00 | 00 03 00 0a 00 00 00 0d |........|........|
|000061a0| 00 00 00 00 00 22 00 21 | 02 81 00 94 00 7d 00 a3 |.....".!|.....}..|
|000061b0| 00 eb 00 02 00 00 00 00 | 00 01 00 03 00 0a 00 00 |........|........|
|000061c0| 00 0d 00 00 00 00 00 22 | 00 22 02 81 00 5e 00 f2 |......."|."...^..|
|000061d0| 01 16 01 ed 00 02 00 00 | 00 00 00 00 00 03 00 0a |........|........|
|000061e0| 00 00 00 0d 00 00 00 00 | 00 22 00 23 02 81 00 a6 |........|.".#....|
|000061f0| 00 7d 00 b5 00 eb 00 02 | 00 00 00 00 00 01 00 03 |.}......|........|
|00006200| 00 0a 00 00 00 0d 00 00 | 00 00 00 22 00 24 02 81 |........|...".$..|
|00006210| 00 5e 00 f2 01 16 01 ed | 00 02 00 00 00 00 00 00 |.^......|........|
|00006220| 00 03 00 0a 00 00 00 0d | 00 00 00 00 00 22 00 25 |........|.....".%|
|00006230| 02 81 00 b8 00 7d 00 c7 | 00 eb 00 02 00 00 00 00 |.....}..|........|
|00006240| 00 01 00 03 00 0a 00 00 | 00 0d 00 00 00 00 00 22 |........|......."|
|00006250| 00 26 02 81 00 5e 00 f2 | 01 16 01 ed 00 02 00 00 |.&...^..|........|
|00006260| 00 00 00 00 00 03 00 0a | 00 00 00 0d 00 00 00 00 |........|........|
|00006270| 00 22 00 27 02 81 00 ca | 00 7d 00 d9 00 eb 00 02 |.".'....|.}......|
|00006280| 00 00 00 00 00 01 00 03 | 00 0a 00 00 00 0d 00 00 |........|........|
|00006290| 00 00 00 22 00 28 02 81 | 00 5e 00 f2 01 16 01 ed |...".(..|.^......|
|000062a0| 00 02 00 00 00 00 00 00 | 00 03 00 0a 00 00 00 0d |........|........|
|000062b0| 00 00 00 00 00 22 00 29 | 02 81 00 dc 00 7d 00 eb |.....".)|.....}..|
|000062c0| 00 eb 00 02 00 00 00 00 | 00 01 00 03 00 0a 00 00 |........|........|
|000062d0| 00 0d 00 00 00 00 00 22 | 00 2a 02 81 00 5e 00 f2 |......."|.*...^..|
|000062e0| 01 16 01 ed 00 02 00 00 | 00 00 00 00 00 03 00 0a |........|........|
|000062f0| 00 00 00 0d 00 00 00 00 | 00 22 00 2b 02 81 00 ee |........|.".+....|
|00006300| 00 7d 00 fd 00 eb 00 02 | 00 00 00 00 00 01 00 03 |.}......|........|
|00006310| 00 0a 00 00 00 0d 00 00 | 00 00 00 22 00 2c 02 81 |........|...".,..|
|00006320| 00 5e 00 f2 01 16 01 ed | 00 02 00 00 00 00 00 00 |.^......|........|
|00006330| 00 03 00 0a 00 00 00 0d | 00 00 00 00 00 22 00 2d |........|.....".-|
|00006340| 02 81 01 00 00 7d 01 0f | 00 eb 00 02 00 00 00 00 |.....}..|........|
|00006350| 00 01 00 03 00 0a 00 00 | 00 0d 00 00 00 00 00 22 |........|......."|
|00006360| 00 2e 02 81 00 5e 00 f2 | 01 16 01 ed 00 02 00 00 |.....^..|........|
|00006370| 00 00 00 00 00 03 00 0a | 00 00 00 0d 00 00 00 00 |........|........|
|00006380| 00 26 00 2f 02 81 00 67 | 00 ff 00 7d 01 d5 00 02 |.&./...g|...}....|
|00006390| 00 00 00 00 00 01 00 03 | 00 0e 01 00 00 12 54 69 |........|......Ti|
|000063a0| 74 6c 65 00 00 00 00 22 | 00 30 02 81 00 82 00 ff |tle...."|.0......|
|000063b0| 00 91 01 d5 00 02 00 00 | 00 00 00 01 00 03 00 0a |........|........|
|000063c0| 00 00 00 0d 00 00 00 00 | 00 22 00 31 02 81 00 98 |........|.".1....|
|000063d0| 00 ff 00 a7 01 d5 00 02 | 00 00 00 00 00 01 00 03 |........|........|
|000063e0| 00 0a 00 00 00 0d 00 00 | 00 00 00 22 00 32 02 81 |........|...".2..|
|000063f0| 00 a6 00 ff 00 b5 01 d5 | 00 02 00 00 00 00 00 01 |........|........|
+--------+-------------------------+-------------------------+--------+--------+